В массиве из 15 чисел подсчитать сумму и количество положительных элементов. Помогите, программа на языке паскаля

Question

Информатика

Леонтинка

19 октября, 10:40

В массиве из 15 чисел подсчитать сумму и количество положительных элементов. Помогите, программа на языке паскаля

+5

Ответы (2)

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

Бориславка · Answer 1

Program n1;

var a: array [1 ... 15] of integer;

S, k, i: integer;

begin

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

S:=0;

k:=1;

for i:=1 to 15 do

begin

if (a[i]>0) then

begin

S:=S+a[i];

k:=k+1;

end;

end;

writeln (k) ;

writeln (S) ;

end.

Емельян · Answer 2

Var

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

i, sum, count: integer;

begin

for i:=1 to 15 do

readln (a[i]) ;

sum : = 0; count : = 0;

for i:=1 to 15 do

if a[i] > 0 then

begin

sum : = sum + a[i];

inc (count) ;

end;

writeln (sum, ' ', count) ;

end.