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

  • В массиве хранится информация о среднедневной температуре за каждый день июля. Определить количество самых прохладных дней в этом месяце.

Ответы 1

  • var

    a:array[1..31] of real;

    i,k:integer;

    min:real;

    begin

    min:=50;

    for i:=1 to 31 do

    begin

    readln(a[i]);

    if a[i]<min then min:=a[i];

    end;

    k:=0;

    for i:=1 to 31 do

    if a[i]=min then k:=k+1;

    writeln(k);

    end.

    • Автор:

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

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

Еще вопросы

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

Войти через Google

 или

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

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

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