Определить массив из 16 элементов и заполнить его целыми числами от 30 до 60

Question

Информатика

Лея

11 декабря, 15:46

Определить массив из 16 элементов и заполнить его целыми числами от 30 до 60

+2

Ответы (1)

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

Белла · Answer 1

Var

m: array [1 ... 16] of integer;

i: integer;

begin

for i : = 1 to 16 do

begin

randomize;

m[i] : = random (31) + 30;

end;

writeln ('Вот Ваш массив') ;

for i : = 1 to 16 do

writeln ('m[', i, ']=', m[i], ' ') ;

readln;

end.