Задание:
Введите в массив 5 целочисленных значений введите их в одну строку через запятую получите для массива среднее арифметическое число) заранееспасибо
Решение:
Program Z; uses crt; const N=5; var A: array [1… N] of integer; i: integer; s: real; begin ClrScr; for i: =1 to N do readln (A[i]); ClrScr; for i: =1 to N do begin write (A[i],','); s: =s+A[i]; end; writeln; s: =s/n; writeln (s); readlnend.
Знаете другой ответ?