Задание:
Помогите пожалуйста! Нужно в паскале Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива
Решение:
Program zd1; var a: array [1… 5] of integer; i: integer; srznach: integer; beginfor i: 1to 5do a[i]: =random (10); writeln ('имеющийся массив'); for i: =1 to 5 do; beginsrznach: =(1+2+3+4+5) /5; writeln; writeln ('среднее арифметическое', srznach); end.
Знаете другой ответ?