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

Question

Информатика

Мартирий

5 апреля, 07:50

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

+1

Ответы (1)

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

Гликерия · Answer 1

Program Massiv;

Uses Crt;

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

i:integer;

begin

write ('Наш Массив:') ;

randomize;

for i:=1 to 100 do

begin

a[i]:=random (40) - 20; / / Заполняем очередной элемент массива случайным

write (a[i],' ') ; / / Выводим элемент массива на экран

end;

readkey;

end.