Нужна программа в Паскале. С клавиатуры вводятся значения переменной x. Найдите сумму...

Question

Нужна программа в Паскале.

С клавиатуры вводятся значения переменной x. Найдите сумму только а=положительных элементов и их число.

Comments

да, так

---

С клавиатуры вводятся значения переменной x. Найдите сумму только положительных элементов и их число.

---

да, задает пользователь

Answer 1

Program test;
uses crt;
var x,n,sum,i:integer;
begin
clrscr;
 write('Input x ');readln(x);
 for i:=1 to x do
  begin
   write('Input number',i,' '); readln(n);
   if n>0 then sum:=sum+n;
  end;
writeln(sum);
readln;
end.