РЕШИТЬ В ТЕТРАДИ
1. Определить, что будет напечатано в результате работы следующего алгоритма.
алг
нач
цел s, k
s : = 3
нц для k от 2 до 5
s : = s + 2 * k
кц
вывод s
кон
2. Определить, что будет напечатано в результате работы следующего алгоритма.
алг
нач
цел s, k
s : = 110
нц для k от 5 до 11
s : = s - 6
кц
вывод s
кон
3. Определить, что будет напечатано в результате работы следующего алгоритма.
алг
нач
цел s, k
s : = 1
нц для k от 3 до 8
s : = s *2
кц
вывод s
кон
4. Определить, что будет напечатано в результате работы следующего алгоритма.
алг
нач
цел s, k
s : = 100
нц для k от 3 до 6
s : = s + k
кц
вывод s
кон
var
i,count:integer;
h: array [1..N] of integer;
begin
count:=0;
writeln('Введите количество осадков');
for i:=1 to N do
read(h[i]);
for i:=1 to N do
if h[i]>0 then
count:=count+1;
writeln('Количество дождливых дней ', count)
end.
В первой строке указываем количество дней. Это константа N
Далее объявляем, что переменная count равна 0. В этой переменной мы будем хранить количество дней с осадками.
Далее мы вводим с клавиатуры 30 чисел, показывающих осадки.
Потом мы проверяем, если число в массиве больше нуля, то мы увеличиваем count на единицу. Тоесть прибавляем +1 день с осадками.
В конце выводим количество дней с осадками