Найти среднее арифметическое всех натуральных чисел из заданного диапазона, которые оканчиваются на нечетную цифру и не кратны 5. Гарантируется, что в заданном диапазоне будет хотя бы одно такое число.
Паскаль, желательно цикл с for

Предыдущий
вопрос Следующий
вопрос

Приведу пример кода на Паскале, который решает данную задачу:

program AverageOddNumbers;
var
start, finish, sum, count, i: integer;
average: real;
begin
sum := 0;
count := 0;
writeln('Введите начало диапазона: ');
readln(start);
writeln('Введите конец диапазона: ');
readln(finish);
for i := start to finish do
begin
if (i mod 10 mod 2 <> 0) and (i mod 5 <> 0) then // проверяем условия задачи
begin
sum := sum + i;
count := count + 1;
end;
end;
if count <> 0 then
begin
average := sum / count;
writeln('Среднее арифметическое всех подходящих чисел: ', average:0:2);
end
else
writeln('В указанном диапазоне нет подходящих чисел');
end.

Этот код вычисляет среднее арифметическое всех натуральных чисел из заданного диапазона, которые оканчиваются на нечетную цифру и не кратны 5.