profile
Опубликовано 4 года назад по предмету Информатика от fhntv97

Информатика (Pascal):
Написать программу для след задачи:

Найти среднюю температуру, если кол-во n дней, когда t >=5.
Вывести ДА или НЕТ

  1. Ответ
    Ответ дан ДенPatriot

    Uses crt;

    const N=30;

    var a:array[1..N] of integer;

      t,sum:integer; 

    begin

    clrscr;

    sum:=0;

      for t:=1 to N do

    begin

        read(a[i]);

    sum:=sum+a[i];

    if (a[i]>=5) then begin  writeln('Да'); end

    else writeln('Нет');

    end;

    writeln('Средняя температура за месяц: ',sum/N);

    readkey;

    end.

Другие вопросы
Lenusik
Математика - 6 дней назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

321
Математика - 2 недели назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

bkmz
Математика - 2 недели назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

lesiunia
Физика - 2 недели назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Kiril
Физика - 2 недели назад

Сколько часов и минут в -1,3ч и -2,75ч

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.