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

Question

Информатика

Горгоний

22 июня, 19:31

Программа заполнения массива из 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.