Дан массив целых чисел, заполненный с клавиатуры. - вопрос №10726502 от RedFoxTR 12.01.2022 03:53

Question

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

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