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

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

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

Задать свой вопрос
Рита Наролина
да, так
Anna Osmolovskaja
С клавиатуры вводятся значения переменной x. Найдите сумму только положительных частей и их число.
Ангелина Чухманова
да, задает юзер
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 ngt;0 then sum:=sum+n;
  end;
writeln(sum);
readln;
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт