Ответы и объяснения

2014-01-16T00:43:07+04:00
Program gt;
var a:array[1..4,1..5]of integer;
i,j:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
a[i,j]:=trunc ((60-30)*random+30);
write(a[i,j],' ');
end;
writeln;
end;
end.
2)
program gt;
var b:array[1..4,1..4]of integer;
i,j,k:integer;
begin
k:=0;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
b[i,j]:=trunc ((60-30)*random+30);
if(b[i,j] mod 5=0)then k:=k+1;
end;
end;
writeln(k);
end.