Question

В массиве хранятся сведения о количестве осадков,выпавших за каждый день января. Определить в какие дни осадков не было. (Решите в Pascal).

Answer 1

Задание не совсем корректное. Если в массиве хранятся числа и отсутствие осадков принято за "0", то программа выглядит так
var i: integer;   
     a: array[1..31] of integer;  
 begin     
     for i:=1 to 31 do read(a[i]);   
     for i:=1 to 31 do    
          if a[i]=0 then write(i, '  ');   
 end.

Answer 2

Определение дней без осадков в массиве

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

program DaysWithoutPrecipitation;

const
  JanuaryDays = 31; // количество дней в январе

var
  Precipitation: array[1..JanuaryDays] of Integer; // массив с данными о количестве осадков
  Day: Integer; // переменная для итерации по дням

begin
  // Здесь необходимо заполнить массив Precipitation данными о количестве осадков за каждый день января

// Вывод дней без осадков
  writeln('Дни без осадков в январе:');
  for Day := 1 to JanuaryDays do
  begin
    if Precipitation[Day] = 0 then
      writeln(Day);
  end;
end.

В этом коде мы используем массив `Precipitation`, чтобы хранить информацию о количестве осадков за каждый день января. Затем мы проходим по всем элементам массива и выводим дни, в которые не было осадков (когда значение элемента равно 0).

Примечание: Вам необходимо заполнить массив `Precipitation` данными о количестве осадков за каждый день января перед выполнением кода.

Например, если в массиве `Precipitation` первые 10 элементов содержат следующие значения: 0, 0, 0, 5, 0, 0, 10, 0, 0, 0, то программа выведет следующий результат:

Дни без осадков в январе:
1
2
3
5
6
8
9
10

Таким образом, дни без осадков в данном примере являются 1, 2, 3, 5, 6, 8, 9 и 10.