Задать вопрос Регистрация
Помочь другим

  • В медосмотре участвовало 10 человек. Подсчитать число осматриваемых , имеющих температуру

Ответы 1

  • Prorgam zadacha;

    Const n=10;

    Var a:array [1..10] of real; 

          i,s:integer;

    Begin

    S:=0;

    For i:=1 to n do begin

    Readln(a[i]);

    If (a[i]>36,6) then s:=s+1;

    End;

    Writeln(s);

    End.

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

    • Автор:

      audrey
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years