1. Дан двумерный

целочисленный массив.

2. размерность

массива задается пользователем.

3. случайные

числа генерируются из промежутка (-m, m)

4. m задается

пользователем.

Найти количество нулевых элементов над главной

диагональю

и Максимальный четный элемент на побочной

диагонали

Var

mas: array [,] of integer;

i, j, m, n, s, max: integer;

f:boolean;

begin

write ('Введите размерность массива: ') ;

readln (n) ;

write ('Введите число m: ') ;

readln (m) ;

setlength (mas, n+1, n+1) ;

for i:=1 to n do

begin;

for j:=1 to n do

begin

mas[i, j]:=random (-m, m) ;

write (mas[i, j]:6) ;

if (j>i) and (mas[i, j]=0) then s:=s+1;

end;

writeln;

end;

j:=n;

f:=false;

for i:=1 to n do

begin

if (mas[i, j] mod 2=0) then

begin

if f=false then

begin

max:=mas[i, j];

f:=true;

end;

if (mas[i, j]>max) then max:=mas[i, j];

end;

j:=j-1;

end;

writeln ('Число нулей над гл. диагональю: ', s) ;

writeln ('Максимальный четный на доп. диагонали: ', max) ;

end.