Используя готовый листинг программы переделать его к следущему условию задачи: Дан массив F состоящий из 5 элементов вещественного типа. Найти количество положительных элементов ммассива Program zadacha :
var
mass: array [1...15] of integer:
i,z: integer
begin
for i:=1 to 15 do
readln (mass [i]);
for i:= 1 to 15 do
z:=z*mass[i];
writeln(Сумма массива равна : z);

end.

айка397    2   14.12.2020 10:18    3