Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от - 20 до 20 - сведения о температуре за каждый день ноября. Напишите программу, которая находит и выводит среднюю температуру среди дней, когда были заморозки (то есть температура опускалась ниже нуля). Гарантируется, что хотя бы в один день ноября была отрицательная температура. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. const N=30; var a: array [1..N] of integer; i, j, max: integer; begin for i:=l to N do readln(a[i]);

Answer 1

Ответ:

const

N=30;

var

a: array [1..N] of integer;

i, j, max: integer;

begin

for i:=1 to N do readln(a[i]);

j:=0;

max:=0;

for i:=1 to N do

if (a[i]<0) then  

 begin

 max:=max+a[i];

 j:=j+1;

 end;

writeln('Средняя температура среди дней,',

' когда были заморозки: ',max/j);

end.

Answer 2

Конечно, вот ваша программа, которая находит и выводит среднюю температуру среди дней ноября, когда были заморозки:

pascalCopy code
const
  N = 30;
var
  a: array [1..N] of integer;
  i, count, total: integer;

begin
  count := 0;
  total := 0;

  for i := 1 to N do
  begin
    readln(a[i]);
    if a[i] < 0 then
    begin
      count := count + 1;
      total := total + a[i];
    end;
  end;

  if count > 0 then
    writeln('Средняя температура в дни с заморозками:', total / count:0:2)
  else
    writeln('В ноябре не было дней с заморозками.');
end.

Эта программа считывает температуры за каждый день ноября и проверяет, была ли температура ниже нуля. Если были заморозки, программа увеличивает счетчик и суммирует значения температур. Затем она выводит среднюю температуру среди дней с заморозками.