Заполнить массив произвольными числами. Вывести полученный массив ** экран. ( Delphi7).

0 голосов
34 просмотров

Заполнить массив произвольными числами. Вывести полученный массив на экран. ( Delphi7).


Информатика (12 баллов) | 34 просмотров
Дан 1 ответ
0 голосов

Program Project1;
const  N = 10;
var  a :array [1..N] of integer; 
i :integer;
begin
randomize; 
for i := 1 to N do   
a[i]:= random(100); 
for i := 1 to N do   
write(a[i],' ');
end.

(2.0k баллов)