Question

Запишите на языке Паскаль фрагмент программы, соответствующий блок-схеме.

Answer 1

Фрагмент организует ввод данных до тех пор, пока не будет введен ноль и подсчитывает количество введенных чисел, значение которых превышает единицу.

var
  k,x:integer;
begin
  k:=0;
  repeat
    Read(x);
    if x>1 then Inc(k)
  until x=0;
  Writeln(k)
end.

Тестовое решение:
1 5 -10 3 -8 6 1 2 -7 4 0
5