ДОДЕЛАТЬ паскаль

[KIRILOW]

1)Сформировать и вывести матрицу А(10,10),элементы которой заданы произвольно,кроме элементов,расположенных в заштрихованной области (рис.) и равных нулю.


2)Вывести элементы и номер столбца, содержащего наибольшее количество нулей.


Код:

const=10;
var
i,j:integer;
a:array[1..n,1..n]of integer;
begin
for i=1 to n do begin
for j=1 to n do begin
if (i>=j)and(i<=n+1-j) then
a[i,j]:=0 else
a[i,j]:=random(n)+1
write(a[i,j]:4);
end;
writeln;
end;

Это задание под цифрой 1. А под цифрой два я не понял

[rommster]

dihlofos20@yandex.ru

Пиши, сделаю!

[kventin_zhuk]

Cделал. Отписал.