program massiv;
uses crt;
var i,j: integer;
a: array[1..6,1..6] of integer;
begin
clrscr;
randomize;
for i: =1 to 6 do begin for j: =1 to 6 do begin a[i,j]: =random(101)-50; end; end;
for i: =1 to 6 do begin for j: =1 to 6 do begin write(a[i,j]: 3); end; writeln; end;
readkey;
end.
Поделитесь своими знаниями, ответьте на вопрос: