Найти средне арифметическое чисел кратных 5 на промежутке от 50 до 100 и вывести их на экран по убыванию ( паскаль)

Urinasonya Urinasonya    2   11.06.2019 19:50    2

Ответы
Var
i,k,d:Integer;
Begin
 for i:=100 downto 50 do
  if (i mod 5=0) then
   begin
    Writeln(i);
    Inc(k);
    d:=d+i;
   end;
  Writeln('Среднее арифметическое : ',d div k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика