написать програму на paskal: 15 элементов массива рандомно в диапазоне от 50 до 100, вывод суммы элементов
Ответы
Ответ дал:
0
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.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад