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

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

Question

Информатика

Петяня

28 августа, 17:04

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

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

+4

Ответы (1)

Знаете ответ на вопрос?

Любомира · 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.

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

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

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