Question

 ВТОРОЙ РАЗ ПРОШУ, ПОМОГИТЕ!!!ПОЖАЛУЙСТА!!!!:(((ОЧЕНЬ НАДО!!:(ПОМОГИТЕЕЕЕЕЕ
в массиве хранится температура воздуха за январь месяц,определить среднюю температуру января и количество дней в январе,когда температура была ниже среднего.

Answer 1

Даже не знаю. Как-то так, наверное.

const n=5;
var a:array[1..n] of real; t:real; i,k:integer;
begin
t:=0; k:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do t:=t+a[i];
t:=t/n;
for i:=1 to n do if a[i]<t then k:=k+1;
write(t,' ',k);
end.

Answer 2

огромное спасибо!!!:)