Задание:
Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементовмассива
Решение:
vari: integer; a: array [1… 5] of integer; s: real; beginwriteln ('Введите 5 элементов массива через пробел: '); s: =0; for i: =1 to 5 do begin read (a[i]); s: =s+a[i]; end; s: =s/5; write ('Среднее арифметическое: ',s: 0:15); end.
Знаете другой ответ?