Предмет: Информатика,
автор: closeststar
написать програму на 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.
Интересные вопросы
Предмет: Русский язык,
автор: dasha300305
Предмет: Английский язык,
автор: PoliNkaAndreevna
Предмет: Русский язык,
автор: elinka1980
Предмет: История,
автор: jkim459908
Предмет: Биология,
автор: таниамам