Question

написать програму на paskal: 15 элементов массива рандомно в диапазоне от 50 до 100, вывод суммы элементов

Answer 1

var

a: array [1..15] of byte;

i:byte;

begin

Randomize;

for i:=1 to 15 do

a[i]:=random(101)+50;

for i:=1 to 15 do

write(a[i],' ');

end.