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

Question

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

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.

Comments

Ошибка.

---

где?

---

7-я строка

---

я уже исправил, там ; не хватало

---

Там k:=1, когда надо k:=0

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.