Составить программу нахождения среднего арифметического элементов массива состоящий из 5 элементов program mas; var............... .........
Составить программу нахождения среднего арифметического элементов массива состоящий из 5 элементов program mas; var............... .........
Гость
Ответ(ы) на вопрос:
Гостьvar
mas:array[1..5] of integer;
i,sum:integer;
sr:real;
begin
for i:=1 to 5 do
begin
readln (mas[i]); //заполняем массив
sum:=sum+mas[i]; //находим сумму элементов массива
end;
sr:=sum/5; //находим среднее арифметическое
writeln (sr);
end.
Не нашли ответ?
Похожие вопросы