Дана последовательность натуральных чисел до 0,вывести все двузначные числа, у которых...

Question

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

Answer 1

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