Создайте программу, запрашивающую у пользователя 10 чисел. Если больше 4-х из них...

Question

Создайте программу, запрашивающую у пользователя 10 чисел. Если больше 4-х из них окажутся больше 10, выведите сообщение «Караул! Сейчас все взорвется». Иначе сообщите, сколько введенных чисел больше 10, а сколько больше 5.(Паскаль)

Answer 1

Var
  a, f, f1, i: integer;
 begin
  f := 0;
  f1 := 0;
  write('Введите 10 чисел:');
  for i := 1 to 10 do
  begin
    read(a);
    if(a > 10) then f := f + 1;
    if(a > 5) then f1 := f1 + 1;
  end;
  if(f > 4) then write('Караул! Сейчас все взорвется')
  else
   begin
    writeln(f1, ' чисел(о)(а) больше 5');
    write(f, ' чисел(о)(а) больше 10');
  end;
end.