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