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

Question

52

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

bentley · Accepted Answer

67

bentley

09 февраля 2023

Uses crt; const N=30; var a: array[1… N] of integer; t,sum: integer; beginclrscr; sum: =0; for t: =1 to N dobegin read (a[i]); sum: =sum+a[i]; if (a[i]>=5) then begin writeln ('Да'); endelse writeln ('Нет'); end; writeln ('Средняя температура за месяц: ',sum/N); readkey; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: