очень заранее Известен диапазон [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.

алинка546    1   14.12.2020 11:17    0