Дан массив целых чисел, заполненный с клавиатуры. - вопрос №10726168 от ChrisUnte 22.10.2022 11:16

Question

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

ChrisUnte · 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....