Дан массив целых чисел, заполненный с клавиатуры. - вопрос №10726000 от LEHA6712 24.11.2022 05:31

Question

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

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