?>
РЕШИТЬ В ТЕТРАДИ 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 день с осадками.
В конце выводим количество дней с осадками