Дана последовательность натуральных чисел до 0, вывести все двузначные числа, у которых старшая цифрв больше младшей. Посчитать их сумму и ср арифмитическое. Pascal ABC

Var

i, s, n:integer;

begin

n:=0; s:=0;

for i:=0 to 99 do

if i>9 then

if i div 10 > i mod 10 then begin

n:=n+1; s:=s+i;

end;

Writeln ('Сумма ', s,', ср. арифметическое ', s/n)

end.

Результат

Сумма 2970, ср. арифметическое 66