Дан целочисленный массив A из 10 частей. Отыскать среднее арифметическое элементов

Дан целочисленный массив A из 10 частей. Отыскать среднее арифметическое частей массива. Помогите пожалуйста, PascalABC

Задать свой вопрос
2 ответа
Program n1;
var a: array[1..10] of integer;
sum,i: integer;
begin
write('начальный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
sum:=sum+a[i];
end;
writeln;
writeln('срзнач: ',sum/10);
end.
Mystratov Vitalja
Благодарю, мил человек!
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-99,99); a.Println;
  Writeln('Ср.арфиметическое одинаково ',a.Average:0:1)
end.

Пример
91 -37 67 -2 -66 -5 45 -44 79 61
Ср.арфиметическое одинаково 18.9
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт