Сколько введенных чисел больше 10 - Pascal

Формулировка задачи:

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

Код к задаче: «Сколько введенных чисел больше 10 - Pascal»

textual
var x: real;
    i, g5, g10: integer;
begin
  g5 := 0;
  g10 := 0;
  writeln('Введите 10 чисел:');
  for i := 1 to 10 do
    begin
      write(i:2, ': ');
      readln(x);
      if x > 10 then inc(g10);
      if x > 5 then inc(g5)
    end;
  if g10 > 4
    then write('Караул! Сейчас все взорвется')
    else begin
      writeln('Количество чисел, больших десяти: ', g10);
      write('Количество чисел, больших пяти: ', g5)
    end;
  readln
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ