// определение числа чётных и нечётных цифр в числе
var n, a, b : integer;
begin a:=0; //чётные b:=0; //нечётные readln (n);
if n<0 then n:=-n; // уничтожение знака числа repeat if ((n mod 10) mod 2<>0) then a:= a+1 else b:= b+1; n:= n div 10; // удаление последней цифры числа until n=0; writeln ('Чётных - '+b); writeln ('Нечётных - '+a);
В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.
var n,s,t,i:integer; begin Write('Укажите количество данных: '); Read(n); Writeln('Теперь вводите данные'); s:=0; for i:=1 to n do begin Read(t); s:=s+t end; Writeln('Средняя температура за месяц составила ',s/n:0:1) end.
Пример решения
Укажите количество данных: 11 Теперь вводите данные 27 29 26 31 24 23 27 30 31 28 25 Средняя температура за месяц составила 27.4
var n, a, b : integer;
begin
a:=0; //чётные
b:=0; //нечётные
readln (n);
if n<0 then
n:=-n; // уничтожение знака числа
repeat
if ((n mod 10) mod 2<>0) then
a:= a+1
else
b:= b+1;
n:= n div 10; // удаление последней цифры числа
until n=0;
writeln ('Чётных - '+b);
writeln ('Нечётных - '+a);
end.