Регистрация
Imdoingfinetoday123
18.08.2020 10:33
Информатика
Есть ответ 👍

Вычислить среднеарифметическое значение всех элементов массива dat[1:10].

Нужно

235
250
Посмотреть ответы 2

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

NekitKrut2007
NekitKrut2007
4,4(75 оценок)

var

 a: integer

 dat:array [1..10] of integer

begin

a:=0;

for 1 to 10 do

begin

 a = a+dat;

end;

a := a/10;

writeln(a);

end.

Пупырка521
Пупырка521
4,4(60 оценок)

Код ниже

Объяснение:

program sumSquared;

var i, n, S: integer;

begin

   writeln('Введите число n: ');

   readln(n);

   S := 0;

   i := 1;

   while i <= n do begin

       S := S + i*i;

       i := i + 1;

       end;

    writeln('Сумма квадратов чисел S = ', S);    

end.

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