составить программу, которая формирует массив из 13 случайных целых чисел, принадлежащих промежутку [-20;20] и выводит эти числа в строку через запятую
Answers & Comments
pacixor
Var A: array [1..13] of integer; i: byte; begin randomize; for i := 1 to 13 do begin A[i] := random(41)-20; write(A[i],', '); end; end.
Answers & Comments
A: array [1..13] of integer;
i: byte;
begin
randomize;
for i := 1 to 13 do
begin
A[i] := random(41)-20;
write(A[i],', ');
end;
end.