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

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

Question

Информатика

Павелка

21 февраля, 10:17

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

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

+5

Ответы (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. Найдите сумму только а=положительных элементов и их число.