Задание:
Ввести c клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива. Пример: Введите пять чисел: 4 15 3 10 14 среднее арифметическое 9,200 в Pascal
Решение:
Program z; var mas: array [1… 5] of integer; i: integer; a: real; beginfor i: =1 to 5 doreadln (mas[i]); a: =(mas[1]+mas[2]+mas[3]+mas[4]+mas[5]) / 5; writeln (a); end.
Знаете другой ответ?