Нужна программа в Паскале. С клавиатуры вводятся значения переменной x. Найдите сумму только а=положительных элементов и их число.
Нужна программа в Паскале. С клавиатуры вводятся значения переменной x. Найдите сумму только а=положительных элементов и их число.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы