информатика 10 класс, помогите
- program gt;var a:array[1..4,1..5]of integer;i,j:integer;beginfor i:=1 to 4 dobeginfor j:=1 to 5 dobegin
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;begink:=0;for i:=1 to 4 dobeginfor j:=1 to 4 dobeginb[i,j]:=trunc ((60-30)*random+30);if(b[i,j] mod 5=0)then k:=k+1;end;end;writeln(k);end.