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

Question

Информатика

Христоша

22 октября, 10:51

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