Задание:
Дан массив 0 из 6 элементов. Найти среднее арифметического элементов этого массива. Впаскале
Решение:
const n=6; var a: array[1… n] of integer; i, s: integer; begin for i: =1 to n do begin a[i]: =random (20); s: =s+a[i]; write (a[i], '); end; writeln; writeln ('Среднее арифметическое эл. Массива: ', s / n); end.
Знаете другой ответ?