Ввести целочисленный массив состоящий из 17 элементтв. Найти сумму и количество положительных элементов. Паскаль АБС

Question

Информатика

Володюха

9 сентября, 00:54

Ввести целочисленный массив состоящий из 17 элементтв. Найти сумму и количество положительных элементов. Паскаль АБС

+1

Ответы (1)

Знаете ответ?

Олег · Answer 1

Const

N=17;

var

i, sum, col:integer;

a:array[1 ... N] of integer;

begin

for i:=1 to N do readln (a[i]) ;

for i:=1 to N do begin

if (a[i]>0) then inc (col) ;

if (a[i]>0) then sum:=sum+a[i];

end;

writeln (sum,' ', col) ;

end.