заранее Известен диапазон [0, 36]. Запишите его на языке программирования.
2) Используя готовый листинг программы, переделать его к следующему
условию задачи: Дан массив Q, состоящий из 20 элементов целого типа.
Найти сумму элементов массива.
Program zadacha;
var
mass: array [1..15] of real;
i, z: integer;
begin
for i:=1 to 15 do
readln (mass[i]);
for i:=1 to 15 do
if mass[i]>8
then z:= z * mass[i];
writeln ('Сумма массива равна: ', z);
end.

elizabetfox1222    1   14.12.2020 10:37    2