НП
Натали Петруня
Pascal ABC.Дана матрица 9х9 найти максимальный и минимальный элементы ниже главной диагонали в диапазоне (-30 до 40)
Помогите, срочно надо.
Помогите, срочно надо.
uses crt;
const n=3;
var a:array[1..n,1..n] of integer;
min,max,i,j:integer;
begin
ClrScr;
writeln('Введите матрицу (9х9)');
for i:=1 to n do begin
for j:=1 to n do
readln(a[i,j]);
end;
max:=0;
for i:=1 to n do begin
for j:=1 to n do begin
if i>j then
if (a[i,j]>-30) and (a[i,j]<40) then
if a[i,j]>max then
max:=a[i,j];
end;
end;
writeln('Максимальное значение: ',max);
min:=32000;
for i:=1 to n do begin
for j:=1 to n do begin
if i>j then
if (a[i,j]>-30) and (a[i,j]<40) then
if a[i,j]