Предмет: Информатика,
автор: Flasch
В массиве хранятся сведения о количестве осадков(в мм),выпадавших ежедневно в сентябре.Составьте программу,которая подсчитывает количество дождливых дней (h [i] >0)
Люди помогите пожалуйста!Срочна надо,кому не трудно...
Ответы
Автор ответа:
0
const N = 30; // Количетсво дней
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 день с осадками.
В конце выводим количество дней с осадками
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 день с осадками.
В конце выводим количество дней с осадками
Автор ответа:
0
что означает read (h[i])?
Автор ответа:
0
Скажи пожалуйста
Автор ответа:
0
тебе же не трудно (
Автор ответа:
0
мне это очень важно
Автор ответа:
0
ввод числа с клавиатуры
Похожие вопросы
Предмет: Математика,
автор: korolevsans
Предмет: Қазақ тiлi,
автор: berikbolovaazhar1
Предмет: Английский язык,
автор: mirisilver
Предмет: Биология,
автор: vef11
Предмет: Математика,
автор: barbuts61