Регистрация
petroura2
28.09.2021 23:53
Информатика
Есть ответ 👍

Дан массив из 15 элементов, найти среднее арифметическое этих элементов. , нужно

281
291
Посмотреть ответы 2

Ответы на вопрос:

R1net1
R1net1
4,4(58 оценок)
Const n=15; var   a: array[1..n] of integer;   sa: real;   i: byte; begin   writeln ('введите ',n,' чисел: ');   sa: =0;   for i: =1 to n do begin;     read (a[i]);     sa: =sa+a[i];   end;   sa: =sa/i;   writeln ('среднее арифметическое = ',sa); end. введите 15 чисел:   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 среднее арифметическое = 8
gordeevlogain2
gordeevlogain2
4,8(40 оценок)

ответ:

program progress;

var a1,d,an,i,a: integer;

begin

  a1 : = 0;

  d : = 7;

  an : = 98;

  i : = 2;

  write(a1,' ');

  while(a < an) do

  begin

    a : = a1 + d * (i-1);

    inc(i);

    write(a,' ');

  end;

 

end.

объяснение:

так?

Популярно: Информатика