Напишите программку для решения последующей задачки.Воспитанники 4 класса вели дневники наблюдения

Напишите программу для решения последующей задачки.
Ученики 4 класса вели дневники наблюдения за погодой и повседневно записывали дневную температуру. Найдите среднюю температуру за время наблюдения. Если количество дней, когда температура подымалась выше нуля градусов, не наименее 5, выведите YES, по другому выведите NO.
Программка получает на вход количество дней, в течение которых проводилось наблюдение N (1 N 31), потом для каждого денька вводится температура.

Задать свой вопрос
1 ответ
Var N,i,k,z:integer;   
      s:real;
begin
s:=0;
k:=0; 
repeat 
    write('Введите кол-во дней : ');  
    readln(N); 
until (Ngt;=1) and (Nlt;=31); проверка на верное количество дней
for i:=1 to N do 
begin 
    write ('Введите значение температуры в ',i,' денек : '); 
    readln(z); 
    s:=s+z; 
    if zgt;0 then k:=k+1; 
end;
s:=s/N;
writeln('Средняя температура = ',s);
if kgt;=5 then writeln('YES') else writeln('NO');
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт