Question

1. массив 10 элементов с клавиатуры, найти среднее арифметическое первой и второй половины. 2. массив из n элементов максимальное 20 минимальное 2 .найти среднее арифметическое первой и второй половины программы нужны паскаль пожалуйста помогите.

Answer 1

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.
 

Answer 2

1. Найти среднее арифметическое первой и второй половины массива из 10 элементов, введенного с клавиатуры.

Для решения этой задачи на языке Паскаль можно использовать следующий код:

program Average;
var
  arr: array[1..10] of Integer;
  i: Integer;
  sum1, sum2: Integer;
  average1, average2: Real;
begin
  // Ввод элементов массива с клавиатуры
  for i := 1 to 10 do
  begin
    Write('Введите элемент ', i, ': ');
    Readln(arr[i]);
  end;
  
  // Вычисление суммы первой половины массива
  sum1 := 0;
  for i := 1 to 5 do
    sum1 := sum1 + arr[i];
  
  // Вычисление суммы второй половины массива
  sum2 := 0;
  for i := 6 to 10 do
    sum2 := sum2 + arr[i];
  
  // Вычисление среднего арифметического первой половины массива
  average1 := sum1 / 5;
  
  // Вычисление среднего арифметического второй половины массива
  average2 := sum2 / 5;
  
  // Вывод результатов
  Writeln('Среднее арифметическое первой половины массива: ', average1:0:2);
  Writeln('Среднее арифметическое второй половины массива: ', average2:0:2);
end.

После запуска программы она попросит ввести 10 элементов массива с клавиатуры. Затем она вычислит сумму и среднее арифметическое первой и второй половин массива и выведет результаты на экран.

Примечание: Данный код предоставлен в качестве примера и может быть изменен или доработан в соответствии с требованиями задачи или особенностями языка программирования.

2. Найти среднее арифметическое первой и второй половины массива из n элементов, где максимальное значение равно 20, а минимальное значение равно 2.

Для решения этой задачи на языке Паскаль можно использовать следующий код:

program Average;
var
  n, i: Integer;
  arr: array of Integer;
  sum1, sum2: Integer;
  average1, average2: Real;
begin
  // Ввод количества элементов массива
  Write('Введите количество элементов массива: ');
  Readln(n);
  
  // Инициализация массива
  SetLength(arr, n);
  
  // Ввод элементов массива с ограничениями на значения
  for i := 0 to n - 1 do
  begin
    repeat
      Write('Введите элемент ', i + 1, ': ');
      Readln(arr[i]);
    until (arr[i] >= 2) and (arr[i] <= 20);
  end;
  
  // Вычисление суммы первой половины массива
  sum1 := 0;
  for i := 0 to n div 2 - 1 do
    sum1 := sum1 + arr[i];
  
  // Вычисление суммы второй половины массива
  sum2 := 0;
  for i := n div 2 to n - 1 do
    sum2 := sum2 + arr[i];
  
  // Вычисление среднего арифметического первой половины массива
  average1 := sum1 / (n div 2);
  
  // Вычисление среднего арифметического второй половины массива
  average2 := sum2 / (n - n div 2);
  
  // Вывод результатов
  Writeln('Среднее арифметическое первой половины массива: ', average1:0:2);
  Writeln('Среднее арифметическое второй половины массива: ', average2:0:2);
end.

После запуска программы она попросит ввести количество элементов массива и затем ввести каждый элемент с ограничениями на значения (от 2 до 20). Затем она вычислит сумму и среднее арифметическое первой и второй половин массива и выведет результаты на экран.

Примечание: Данный код предоставлен в качестве примера и может быть изменен или доработан в соответствии с требованиями задачи или особенностями языка программирования.