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

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

Question

Информатика

Ефросинья

24 января, 19:10

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

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

+1

Ответы (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