Информатика (Pascal) :

Написать программу для след задачи:

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

Вывести ДА или НЕТ

Question

Информатика

Микола

7 мая, 13:07

Информатика (Pascal) :

Написать программу для след задачи:

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

Вывести ДА или НЕТ

+5

Ответы (1)

Знаете ответ на вопрос?

Фотина · Answer 1

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.

Информатика (Pascal) :Написать программу для след задачи:Найти среднюю температуру, если кол-во n дней, когда t >=5.Вывести ДА или НЕТ

Информатика (Pascal) :

Написать программу для след задачи:

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

Вывести ДА или НЕТ