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

Question

Информатика

Цветана

8 июня, 15:55

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

+5

Ответы (2)

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

Павелка · Answer 1

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.

Кельтск · Answer 2

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.