СОСТАВЛЕНИЕ ПРОГРАММ
Задание 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
Вывод: Нет
