найти сумму нечётных чисел, из промежутка от 11 до 99, найти среднее арифметическое чисел от 1 до 50

program zz1;

var i, s, p, k:integer; / / задаем переменные целого типа

begin

for i:=11 to 99 do / / организуем цикл, в котором переберем числа от 11 до 99

begin

if i mod 2 = 1 then s:=s + i; / / проверяем, если число нечетное, то добавляем число в сумму

end;

writeln (' сумма нечетных чисел, из промежутка от 11 до 99 = ', s); / / выводим ответ

for i:=1 to 50 do / / организуем цикл, в котором переберем числа от единицы до пятидесяти

begin

p:=p + i; / / добавляем число в сумму

k:=k + 1; / / считаем количество

end;

writeln (' среднее арифметическое чисел от 1 до 50 = ', p/k); / / выводим ответ

end.