Question

В массиве хранится информация о среднедневной температуре декабря. Составьте программу, которая подсчитывает, сколько в декабре было дней с нулевой, отрицательной и положительной температурной. Pascal ABC

Answer 1

Может это поможет:  

Program TemperatureInDecember;  

Uses crt;  

Var tempDecember : array[1..31] of integer;  

i, countPlus, countZero, countMinus : integer;  

begin  

Clrscr;  

countPlus := 0;  

countZero := 0;  

countMinus := 0;  

for i:= 1 to 31 do  

begin  

if tempDecember = 0 then countZero += 1  

else if tempDecember > 0 then countPlus += 1  

else countMinus += 1;  

end;  

writeln('В декабре дней с нулевой температурой было: ', countZero);  

writeln('В декабре дней с отрицательной температурой было: ', countMinus);  

writeln('В декабре дней с положительной температурой было: ', countPlus);  

readln;  

end.  

 

Плохо отобразилось, вот скрин:

Answer 2

Для подсчета количества дней с нулевой, отрицательной и положительной температурой в массиве среднедневной температуры декабря, вам потребуется написать программу на Pascal ABC. Вот пример программы, которая решает данную задачу:

pascalCopy code
program CountTemperatureDays;

const
  daysInDecember = 31; // Предполагаем, что в декабре всегда 31 день

var
  temperatures: array[1..daysInDecember] of Integer;
  zeroTempDays, negativeTempDays, positiveTempDays: Integer;
  i: Integer;

begin
  // Ввод информации о температуре за декабрь
  writeln('Введите среднедневную температуру для каждого дня декабря:');
  for i := 1 to daysInDecember do
  begin
    write('День ', i, ': ');
    readln(temperatures[i]);
  end;

  // Инициализация счетчиков
  zeroTempDays := 0;
  negativeTempDays := 0;
  positiveTempDays := 0;

  // Подсчет дней с нулевой, отрицательной и положительной температурой
  for i := 1 to daysInDecember do
  begin
    if temperatures[i] = 0 then
      Inc(zeroTempDays)
    else if temperatures[i] < 0 then
      Inc(negativeTempDays)
    else
      Inc(positiveTempDays);
  end;

  // Вывод результатов подсчета
  writeln('Количество дней с нулевой температурой: ', zeroTempDays);
  writeln('Количество дней с отрицательной температурой: ', negativeTempDays);
  writeln('Количество дней с положительной температурой: ', positiveTempDays);
end.

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