Дан массив из 9 чиселНайти среднее арифметическое всех частей массиваPascal

Дан массив из 9 чисел

Отыскать среднее арифметическое всех частей массива

Pascal

Задать свой вопрос
1 ответ
Program lol;

var
a: array [1..9] of real;
sum: real;
I: integer;

begin
for I := 1 to 9 do
begin
write('a[', I, '] = ');
readln(a[I]);
sum := sum + a[I];
end;
writeln('Среднее арифметическое введённых чисел = ', sum/9);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт