Подскажите, составить программу вычесления: суммы - вопрос №1612308 от katsden 19.02.2021 11:54

Question

Информатика: Подскажите, составить программу вычесления: суммы всех положительных элементов массива. буду .

katsden · Answer

var a:array[1..1000]of integer; i,sum:integer; begin readln(n); sum:=0; for i:=1 to n do begin read(a[i]); inc(sum,a[i]); end; writeln(sum); end....