Недавнее содержимое от anka950

Изобразить на форме космический глаз, периодически открывающийся и закрывающийся , помогите пожалуйста

Спасибо большое)

Var x:array[1..15] of word; k,m,i,n:word; mas:word; Y:array[1..12] of word; Begin CLRSCR; n:=15; Read(x[1]); max:=x[i]; For i:=2 to n do begin Read(x[i]); If max<x[i] then begin max:=x[i]; k:=i;end;end; Writeln('максимум: ',max); Writeln ('номер максимума: ',k); Readkey ; End.

Что мне делать если я процедуры не понимаю?!

1.Вычислить общую сумму выплат за месяц по цеху X, а также среднемесячный заработок рабочего цеха, Напечатать ведомости для начисления заработной платы рабочим этого цеха. Через файлы. 2.Вычислить и запомнить суммы и числа элементов каждой строки матрицы. Результат отпечатать в виде двух матриц...

Паскаль Найти наибольшие элементы и их порядковые номера массивов x(15) и y(12) Через процедуру или функцию Помогите пожалуйста

Помогите ее решить, пожалуйста!!

Можете именно вот эту задачу решить?

Написать программу, выполняющую кодирование и декодирование информации с использованием алгоритма трансляции при которой для перемешивания символов сообщения используются прямоугольный матрицы. Например, можно вписать алфавит в прямоугольник, расположив буквы следующим образом: 1 А Д З Л Г У Ч...