Вывести массив из 20 случайных элиментов от 0 до 200

Ответы

Ответ дал: nkpk
0
var
i:integer;
mas:array[1..n] of integer;
begin
for i:=1 to 20 do
mas[i]:=random(200);
for i:=1 to 20 do
write(mas[i]:4);
end.
Вас заинтересует