Нужна программа в паскале (с "ramdomize")

N=27 заполнить массив с помощью случайных чисел от-20 до 20

Question

Информатика

Дрона

7 ноября, 22:54

Нужна программа в паскале (с "ramdomize")

N=27 заполнить массив с помощью случайных чисел от-20 до 20

+3

Ответы (1)

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

Нилыч · Answer 1

Var

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

i: integer;

begin

randomize;

for i:=1 to 20 do

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

for i:=1 to 20 do

write (a[i], ' ') ;

writeln;

end.

Нужна программа в паскале (с "ramdomize")N=27 заполнить массив с помощью случайных чисел от-20 до 20

Нужна программа в паскале (с "ramdomize")

N=27 заполнить массив с помощью случайных чисел от-20 до 20