<!DOCTYPE HTML>
<div style="font-size: 12pt;">Имя</div>
<div style="font-size: 14pt;">Фамилия</div>
<div style="font-size: 16pt;">Отчество</div>
Var
i,j,s:integer;
a:array[1..10,1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(-10,10);
if (a[i,j]=0) and (i=j) then s:=s+1;
write(a[i,j]:3)
end;
writeln
end;
writeln('Число нулей на главной диагонали: ',s)
<span>end.</span>
Точно не знаю, возможно 21
===== PascalABC.NET =====
begin
var a := ArrRandom(19, 27, 74);
a.PrintLines
end.