Составьте блок-схему и программу для нахождения среднего арифметического всех натуральных нечетных двузначных чисеел
Желательно в цикле «Для»
program z1;
uses crt;
var S,k,i:integer;
sr:real;
begin
clrscr;
S:=0; k:=0;
for i:=11 to 99 do
if i mod 2<>0 then
begin S:=S+i; k:=k+1 end;
Sr:=S/k;
writeln('sr=',sr:8:2);
readln
end.
S — сумма чисел, k — количество. i — числа
Sr - среднее арифметическое
i mod 2<>0 проверка не нечетность, остаток от деления на 2 не равно 0
Буду благодарна, если отметите
Имеет значение, какой цикл использовать?