Написать программу, которая запрашивает массив размерности N и выводит на экран сам массив, а также наибольший и наименьший элементы массива. Протестировать программу на массивах размерностью 5 и 10 элементов.

Program n1;

Uses Crt; const n=100;

Var a:array[1 ... n, 1 ... n]of integer;

i, j, k, m, p, s, b, t:integer;

Begin

clrscr;

writeln ('Введи размер матрицы: '); readln (m);

For i:=1 to m do begin

For j:=1 to m do begin

Write ('a[', i,',', j,']'); read (a[i, j]);

end;

end;

clrscr;

s:=0; p:=0;

For i:=1 to m do begin

For j:=1 to m do begin

s:=s+a[i, j];

if (i<=j) then p:=p+a[i, j];

write (a[i, j]:5);

end;

writeln;

end;

k:=0; t:=0;

For i:=1 to m do begin

For j:=1 to m do begin

if (j=1) then b:=a[i, j];

if (b=a[i, j]) then k:=k+1;

end;

if (k=m) then t:=t+1;

k:=0;

end;

writeln ('Сумма всех элементов массива: ', s);

writeln ('Сумма элементов над главной диагональю: ', p);

writeln ('Количество строк в которых все элементы одинаковы ', t);

end ...