Question

Написать программу для определения количества и суммы только положительных чисел из 3, введенных с клавиатуры, на pascal

Answer 1

Program ex;
var a,b,c,s,k:integer;
begin 
writeln('Введите первое число');
 readln(a); 
writeln('Введите первое второе');
 readln(b); 
writeln('Введите первое третье'); 
readln(c); 
if a>0 then 
begin   k:=k+1; 
 s:=a; 
end; 
if b>0 then 
 begin   
s:=s+b; 
  k:=k+1;
  end;
 if c>0 then 
 begin 
  k:=k+1; 
  s:=s+c 
 end;
writeln('Сумма=',s);
writeln('Количество положительных чисел=',k)
end.