Сформировать целочисленный массив (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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
