Question

Написать программу ввода 30 элементов одномерного массива, введенных случайным образом.

Answer 1

Ответ:

это то, о чем я подумал??

var a: array[1..30] of integer;

    x:integer;

begin

randomize;

for x:=1 to 30 do

begin

a[x]:=random(30);

write(a[x]:3);

end;

end.

Объяснение: