Program gt; var a:array[1..100,1..100]of integer; i,j,s:integer; begin randomize; for i:=1 to 6 do for j:=1 to 6 do a[i,j]:=random(6)+15; for i:=1 to 6 do begin s:=0; for j:=1 to 6 do s:=s+a[i,j]; writeln(s); end; end.
Var a:array[1..100,1..100]of integer; i,j,s:integer; begin clrscr; s:=0; randomize; for i:=1 to 6 do for j:=1 to 6 do a[i,j]:=random(6)+15; s:=s+a[i,j]; end; end; writeln(s); readkey; end.
var a:array[1..100,1..100]of integer;
i,j,s:integer;
begin
randomize;
for i:=1 to 6 do
for j:=1 to 6 do
a[i,j]:=random(6)+15;
for i:=1 to 6 do
begin
s:=0;
for j:=1 to 6 do
s:=s+a[i,j];
writeln(s);
end;
end.
i,j,s:integer;
begin
clrscr;
s:=0;
randomize;
for i:=1 to 6 do
for j:=1 to 6 do
a[i,j]:=random(6)+15;
s:=s+a[i,j];
end;
end;
writeln(s);
readkey;
end.