Question

Створити цілочисельний одновимірний масив А[1..5] з елементом введеним через функцію Rondom

Answer 1

program gt;
var a:array[1..5]of integer;
i:integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(100);
write(a[i],' ');
end;
end.