Заполнить массив произвольными числами. Вывести полученный массив на экран. ( Delphi7).
Заполнить массив произвольными числами. Вывести полученный массив на экран. ( Delphi7).
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы