Задание:
Дан одномерный массив из N вещественных элементов. Составить программу вычисления их среднего арифметического,,,, ООчень нужно на завтра, помогитепожалуйста!
Решение:
program 1; uses crt; cоnst n=10; var arr: array[1… N] of real; sum: real; i: integer; Begin clrscr; writeln ('Please entel array'); for i: =1 to N do read (arr); sum: =0; for i: =1 to N do sum: =sum+arr; writeln (); writeln ("result=",sum/N); readln; End.
Знаете другой ответ?