Question

С клавиатуры вводятся 3 числа. сколько среди них положительных ?

Нужно решать либо с if или с case 

Answer 1

program q;
var mult, a, b, c:integer;
begin
  write('введите 3 числа');
  read(a,b,c);
mult:=0;
if a>0 then 
 mult:=mult+1
else mult:=mult;
end;
if b>0 then
 mult:=mult+1
else mult:=mult;
if c>0 then 
  mult"=mult+1
else mult:=mult;
end;
writeln('положительных ' ,mult, '  чисел');
end.