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

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

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

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

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

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

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

      k1,n:integer;

begin

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

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

    k1:=0;

    for n:=1 to 7 do 

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

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

end.

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

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

Пример:

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

Вывод: Были 

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

Вывод: Нет