Ввести с клавиатуры массив из 5 элементов,найти среднее арифметическое всех элементов массива?
Ввести с клавиатуры массив из 5 элементов,найти среднее арифметическое всех элементов массива?
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
const n=5;
var a: array[1..n] of integer;
i , s: integer;
begin clrscr;
s:=0;
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
end;
writeln('Среднее арифмитическое = ', s/5:3:1);
readln;
end.
Не нашли ответ?
Похожие вопросы