Сформировать целочисленный массив (6*6), заполненный случайным образом числами из промежутка [-50;50] ПАСКАЛЬ! ПОМОГИТЕЕ
Ответы
Program Z1;
uses crt;
const N=6;
var A:array [1..N,1..N] of integer;
i,j:integer;
begin
ClrScr;
for i:=1 to N do
begin
for j:=1 to N do
begin
A[i,j]:=Random(101)-50;
write (A[i,j]:4);
end;
writeln;
end;
end.
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.