Question

Turbo Pascal: Дан массив А из четного числа N элементов. Сформировать массив В из К=N/2 элементов так, чтобы: b1=aN+aN–1, b1=aN–2+aN–3, … , bK–1=a4+a3, bK=a2+a1.

Answer 1

Ответ:

program  z1;

var a,b:array [1..100] of integer;

i,k,n:integer;

begin

randomize;

write('Введите чётное n (n<=100) = ');

readln(n);

write('Массив А:');

for i:=1 to n do

begin

a[i]:=random(10);

write(a[i]:4)

end;

writeln;

k:=n div 2;

write('Массив B:');

for i:=1 to k do

begin

b[i]:=a[n-i*2+2]+a[n-i*2+1];

write(b[i]:4)

end

end.

Объяснение:

картинка

Answer 2

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

pascalCopy code
program PascalArrayManipulation;
var
  A, B: array of Integer;
  N, K, i: Integer;
begin
  Write('Введите четное число N: ');
  Readln(N);

  // Проверка на четность N
  if N mod 2 <> 0 then
  begin
    Writeln('N должно быть четным числом.');
    Exit;
  end;

  K := N div 2;

  SetLength(A, N);
  SetLength(B, K);

  // Заполнение массива A
  Writeln('Введите элементы массива A:');
  for i := 0 to N - 1 do
  begin
    Write('A[', i + 1, '] = ');
    Readln(A[i]);
  end;

  // Формирование массива B
  for i := 0 to K - 1 do
  begin
    B[i] := A[2 * i] + A[2 * i + 1];
  end;

  // Вывод массива B
  Writeln('Массив B:');
  for i := 0 to K - 1 do
  begin
    Write('B[', i + 1, '] = ', B[i], ' ');
  end;

  Readln;
end.

Этот код сначала запрашивает у пользователя четное число N, затем создает массив A с N элементами и массив B с K элементами (где K = N / 2). Затем пользователь вводит элементы массива A, и массив B формируется в соответствии с указанными условиями. Наконец, значения массива B выводятся на экран.

Обратите внимание, что этот код не содержит обработку ошибок, так что пользователь должен ввести четное число N, чтобы программа корректно работала.