Question

Пусть задана последовательность чисел a, b, c, d. Составить программу вычисления количества K положительных чисел, содержащихся в
этой последовательности. Печатать a, b, c, d, K.

Answer 1

var
  a,b,c,d,K:integer;
begin
  write('Введите a,b,c,d: ');
  readln(a,b,c,d);
  K:=0;
  if a>0 then K:=K+1;
  if b>0 then K:=K+1;
  if c>0 then K:=K+1;
  if d>0 then K:=K+1;
  writeln(a,' ',b,' ',c,' ',d,' K=',K);
end.

Тестовое решение:

Введите a,b,c,d: -4 5 3 0
-4 5 3 0 K=2