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

Question

Информатика

Серж

10 сентября, 17:45

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

+1

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