Поиск элементов массива с заданными свойствами

ПРЕЗЕНТАЦИЯ К УРОКУ

ТЕСТ

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

СОСТАВЛЕНИЕ ПРОГРАММ

Задание 2. Набрать и выполнить программу из классной работы. 

Задание 3. Составить программу, которая выводит номер дня за те дни, в которые температура была ниже -10. 

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

var t : array [1..7] of integer; 

      k:integer;

begin

writeln('Введите сведения о температуре за 7 дней' );

    for var i:=1 to 7 do readln(t[...]);

    k:=0;

    for var i:=1 to 7 do 

                         if  t[...]... then k:=k+1;

   writeln(' Дней с отрицательной температурой ', ...);

end.

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

Задание 5. В массиве хранятся данные о количестве осадков (в мм), выпадавших ежедневно в течение недели ноября. Составьте программу, которая выводит сообщение о том были ли за эту неделю дни без осадков.

Пример:

Ввод: 10 0 7 8 20 5 0

Вывод: Были 

Ввод: 10 8 7 8 20 5 2

Вывод: Нет