Программа для №5
var
a: array [1..4,1..5] of integer;
i,j,max:integer;
begin
randomize;
for i:=1 to 4 do
begin
max:=-20;
for j:=1 to 5 do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
if a[i,j]>max then
max:=a[i,j];
end;
write(' Max: ',max);
writeln;
end;
end.
