Найти среднее арифметическое элементов одномерного массива - Turbo Pascal (33843)

Формулировка задачи:

Найти среднее арифметическое элементов одномерного массива. Разделить на получившееся значение все элементы массива. Массив ввести с клавиатуры. Необходимо выполнить полный контроль входных данных при помощи цикла. Ответ необходимо дать полный по формату 2 знака после запятой. Одномерный массив распечатать в строку.

Код к задаче: «Найти среднее арифметическое элементов одномерного массива - Turbo Pascal (33843)»

textual
const n=15;
var a:array[1..n] of real;
i:integer;
s:real;
begin
 for i:=1 to n do
begin write('a[',i,']=');
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
for i:=1 to n do
begin
a[i]:=a[i]/s; write(a[i]:5:2);
end;
readln
end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 4.143 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы