Помогите, пожалуйста.

Написать программу, которая находит среднее арифметическое чисел 1, 2, 4, 8, 16 и т.д. Количество чисел вводится с клавиатуры.

Язык-Паскаль.

1

Ответы и объяснения

Лучший Ответ!
2013-12-15T16:27:15+04:00
var
  sum, n, i: integer;
begin
  writeln('Введите кол-во чисел: ');
  readln(n);
  writeln('Числа: ');
  sum := 1;
  while i <> n do
   begin
    write(sum, ' ');
    sum := sum * 2;
    inc(i);
  end;
writeln;
writeln('Среднее арифметическое: ', sum / n);
end.
var
sum, n, i: integer;

begin
writeln('Введите кол-во чисел: ');
readln(n);
writeln('Числа: ');
sum := 1;
for i := 1 to n do
begin
write(sum, ' ');
sum := sum * 2;
end;
writeln;
writeln('Среднее арифметическое: ', sum / n);
end.
var sum: real; n,i,:integer
В данном случае результат от деления для sum не присваивается, а выводится сразу на экран, то есть её не обязательно объявлять как вещественное число.
По крайней мере в Pascal ABC
спасибо огромное;)