Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дан массив H размером 3*2 составить программу нахождения максимального элемента помогите плиз

Ответ оставил Гость

Program z1;
var
n: array[1..10,1..10] of integer;
i,j,max: integer;
begin
max:=-1000;
writeln(Введите элементы массива);
for i:=1 to 3 do
for j:=1 to 2 do
begin
write(n[,i,,,j,]=);
readln(n[i,j]);
if n[i,j]>max then
max:=n[i,j];
end;
writeln(Максимальный элемент равен ,max);
end.