Помогите написать алгоритм
это самостоялка по информатике я на 2 курсе в универе
роботу надо делать в pascal, или в тетраде если нет паскаля
1. В двумерном массиве А[1..10,1..4] найти наибольший элемент и его номер.
2. За результатами работы оформить отчет с заглавиями контрольной работы, текстом программы и распечатанными результатами расчета. Данные для расчета задавать самостоятельно, придерживаясь содержания задания.
помогите
var A:array [ 1..10, 1..4] of integer;
i, j, max, maxi, maxj : integer;
BEGIN
{Заполняем массив случайными числами}
for j := 1 to 4 do begin
for i := 1 to 10 do begin
A [ i, j] := Random(100);
write(A [ i,j]:4);
end;
writeln;
end;
{Временно считаем, что максимум это элемент A[1,1]}
maxi := 1;
maxj := 1;
max := A [ i, j];
{Ищем максимум}
for j := 1 to 4 do begin
for i := 1 to 10 do begin
if max < A [ i, j] then begin
max := A [ i, j];
maxi := i;
maxj := j;
end;
end;
end;
Writeln('Максимальный элемент А [ ',maxi, ',',maxj,'] = ',max);
END.
РЕЗУЛЬТАТ ВЫПОЛНЕНИЯ
67 37 23 54 58 92 93 24 57 17
80 69 33 47 49 46 24 87 61 93
75 88 73 83 39 25 66 41 81 17
46 18 38 6 76 13 0 86 37 20
Максимальный элемент А [7,1] = 93
var i,max:Integer;
array m[1..10]of integer;
begin
for i:=1 to 10 do
m] i ]:=raund(random(100));
for i:=1 to 10 do
if m[ i ]>max then
max:=m[ i ];
writeln(inttostr(max));
end;
