Вмассиве хранится информация о среднесуточной температуре за текущую неделю. составить программу, определяющую среднюю температуру за неделю и количество дней, в течение которых температура была выше средней

250

451

Посмотреть ответы 3

Ответы на вопрос:

Sergei12121

Информатика

4,6(16 оценок)

Var a: array[1..7] of integer; i, k: integer; s: real; begin for i: =1 to 7 do begin write('введите погоду для ', i, ' дня недели: '); readln(a[i]); s: =s+a[i] end; s : = s/7; k: =0; for i: =1 to 7 do if a[i] > s then inc(k); writeln('средняя температура: ', s); writeln('кол-во дней: ', k); end.

KALINACHKA

Информатика

4,7(37 оценок)

//pascal abc.net v3.0 сборка 1111 const n=7; var ar: array[1..n] of integer; //массив дней i,k: integer; sr: real; begin k: =0; //счётчик превысивших for i: =1 to n do begin readln(ar[i]); //вводим дни sr: =sr+ar[i]; //заодно вычисляем сумму дневных температур end; sr: =sr/n; {делим сумму на количество дней, получаем среднюю температуру} for i: =1 to n do if sr< ar[i] then inc(k); {если температура некотрого для выше средней, увеличиваем счётчик} writeln('средняя температура=',sr,', за неделю ', k,' дней превысили эту температуру'); end.пример ввода: 127пример вывода: средняя температура=4, за неделю 3 дней превысили эту температуру