Предмет: Информатика, автор: OlyaPolyan

Массив содержит значения температуры, измеренной в 10 точках радиатора охлаждения(°C): 45, 34, 39, 67, 62, 41, 52, 57, 51, 36. Определить среднюю температуру ''горячих'' (>50 °C) участков радиатора.

Ответы

Автор ответа: Sky09
0
uses crt;
const
    a:array[1..10] of integer=(45, 34, 39, 67, 62, 41, 52, 57, 51, 36);
var sr:real;
    i,n,sum:integer;
begin
     for i:=1 to 10 do write(a[i]:3);
     writeln;
     for i:=1 to 10 do
     if a[i]>50 then
     begin
          sum:=sum+a[i];
          n:=n+1;
     end;
     sr:=sum/n;
     writeln('Среднее значение горячих участков: ',sr);
end.
Похожие вопросы
Предмет: История, автор: ghruhryghfhtyih1
Тест по теме " Россия при наследниках Петра I: эпоха дворцовых переворотов"
1. Как реформы Петра I в армии и флоте привели к изменению ситуации в Северной войне?( Кратко пж)
2.Кратко Дать характеристику правления: Петра II, Елизавета Петровна, Иван Антонович.
3. Дать определение терминов: регентство, гвардия, "бироновщина",коллегии.
4. ЧТо было главным направлением внутренней политики российских правителей в 1725-1762 гг.
5. Кратко дать характеристику правления Анны Иоановны
6. ЧТо было " Господствующей" (движущей) силой дворцовых переворотов? Подтвердите фактами.
7. Семилетняя война( причины, ход, последствия) (КРАТКО)
8. Ништадтский мир-Что это?
9. Расположите в хронологической последовательности имена российских монархов XVIII в.Запишите цифры, которыми обозначены имена монархов, в правильной последовательности:
1) Елизавета Петровна
2) Екатерина II
3) Павел I
4) Петр II

ДАЮЮ 100 БАЛЛОВ
Предмет: Математика, автор: adiabatyr