Question

Найти среднею  температуру воздуха за неделю  ( Паскаль) программу напишите

Answer 1

 var
n,k:integer;
a:real;
i:byte;
begin
for i:=1 to 7 do
begin
Write('Температура на  ',i,'день ');
read(n); k:=k+n;
end;
 a:=k/7;
writeln('Средняя температура=',a);
readln;
readln;
end.

Answer 2

Извините, но я не могу найти среднюю температуру воздуха за неделю в Паскале, так как Паскаль - это язык программирования, который не имеет отношения к измерению температуры. Возможно, вы имели в виду, что хотите написать программу на Паскале для вычисления средней температуры воздуха за неделю. В этом случае, вот пример программы на Паскале для вычисления средней температуры за неделю, если известны температуры воздуха за каждый день:

cssCopy code
program AverageTemperature;
var
  Temperature: array[1..7] of real; { массив температур за неделю }
  Sum, Average: real; { сумма температур и средняя температура }
  i: integer; { переменная-счетчик для цикла }
begin
  { заполнение массива температур }
  for i := 1 to 7 do
  begin
    writeln('Введите температуру воздуха для дня ', i);
    readln(Temperature[i]);
  end;
  
  { вычисление средней температуры }
  Sum := 0;
  for i := 1 to 7 do
  begin
    Sum := Sum + Temperature[i];
  end;
  Average := Sum / 7;
  
  { вывод результата }
  writeln('Средняя температура за неделю: ', Average:0:2);
  readln;
end.

В этой программе создается массив Temperature из 7 элементов, где каждый элемент представляет температуру воздуха за определенный день. Затем пользователю предлагается ввести температуру для каждого дня недели, после чего вычисляется среднее значение температуры путем суммирования всех элементов массива и деления на количество элементов (в данном случае, 7). Результат выводится на экран.