Задать массив случайным образом, состоящий из 7 строк и 7 столбцов. Элементы от -20 до 20. Найти максимум отрицательных элементов.Решить в ПаскальАВС

program mas2_min_max;

const

n=7;

var

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

i,j,max:integer;

begin

writeln('Массив 》');

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(41)-20;

write(a[i,j]:3,' ');

end;

writeln;

end;

max:=-22;

for i:=1 to n do

for j:=1 to n do

begin

if (max<a[i,j])and(a[i,j]<0) then

max:=a[i,j];

end;

writeln('Максимальный отрицательный элемент 》',max);

end.

===== PascalABC.NET =====

begin

   var a := MatrRandom(7, 7, -20, 20);

   a.Println;

   a.ElementsByRow.Where(p -> p < 0).Max.Print

end.

1 кодирование
2 Систематизация это распределение файлов "по полочкам" - по дате добавления, по алфавиту и т. д.
3. нахождение информации в глобальной сети, на сервере и т. д.
4. Форма представления бывает разной - в виде текста , в виде таблицы, в виде картинки и т. д. 
5. К математическому типу и текстовому.
6. Они могут быть сделаны на разных текстовых редакторах.
7. По алфавиту - фамилии в школьном журнале, файлы, документы..
В порядке убывания - цифры, числа...
в хронологической последовательности -  даты, события, файлы, документы.

1 кодирование
2 Систематизация это распределение файлов "по полочкам" - по дате добавления, по алфавиту и т. д.
3. нахождение информации в глобальной сети, на сервере и т. д.
4. Форма представления бывает разной - в виде текста , в виде таблицы, в виде картинки и т. д. 
5. К математическому типу и текстовому.
6. Они могут быть сделаны на разных текстовых редакторах.
7. По алфавиту - фамилии в школьном журнале, файлы, документы..
В порядке убывания - цифры, числа...
в хронологической последовательности -  даты, события, файлы, документы.