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