ТутРешу.Ру

Введите в массив 5 целочисленных значений введите их в одну строку…

Задание:

Введите в массив 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.




Знаете другой ответ?

Отправить свой ответ