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

0 голосов

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


спросил от (30 баллов) в категории Информатика
2 Ответы
0 голосов
ответил от БОГ (150k баллов)
 
Лучший ответ
// 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
0 голосов
ответил от Архангел (150k баллов)

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.

оставил комментарий от (30 баллов)

Благодарю, мил человек!

...