Программа заполнения массива из 100 чисел случайными значениями из диапазона от - 20 до 20. (паскаль)

Question

Информатика

Аксиния

10 августа, 22:26

Программа заполнения массива из 100 чисел случайными значениями из диапазона от - 20 до 20. (паскаль)

+3

Ответы (1)

Знаете ответ на вопрос?

Лидуха · Answer 1

Var

a:array [1 ... 100] of integer;

i:integer;

begin

randomize;

write ('массив:') ;

writeln;

begin

for i:=1 to 100 do

a[i]:=random (40) - 20;

end;

for i:=1 to 100 do

writeln (a[i]) ;

end.