Дан массив целых чисел, заполненный с клавиатуры. - вопрос №10725825 от Alica56 31.10.2022 00:32

Question

Информатика: Дан массив целых чисел, заполненный с клавиатуры. Найти количество положительных элементов массива. (При заполнении массива необходимо ввести положительные, отрицательные и нулевые элементы)

Alica56 · Answer

program mass_maxnech_kolkrat5;const n=10;var i,sum:integer; a:array[1..n] of integer;begin sum:=0; for i:=1 to n do begin read(a[i]); if (a[i] 0) then sum:=sum+a[i]; end; write(sum);end....