Question

Помогите пожалуйста с информатикой в паскале 2.  Заменить элементы массива с k1-го по k2-ой на те же элементы в обратном порядке.   3.  Из элементов массива А сформировать массив В той же размерности по правилу: первые 10 элементов находятся по формуле B[i]=A[i]+i, остальные по формуле B[i]=A[i]-i.

Answer 1

Ответ:

Объяснение:

const

 nm=100;

var

 a: array[1..nm] of integer;

 i,k,l,n,buf:  integer;

begin

 randomize;

 write('vvedite n ');

 readln(n);

 writeln('ishodniy massiv:');

 for i:=1 to n do

 begin

   a[i]:=random(99)+1;

   write(a[i],' ');

 end;

 writeln;

 write('vvedite k,l (k<l) : ');

 readln(k,l);

for i:=k to (l-k)div 2+k do

begin

buf:=a[k];

a[k]:=a[l];

a[l]:=buf;

 k:=k+1;  

 l:=l-1;

end;

for i:=1 to n do write(a[i],' ');

readln;

end.

==================================================================

const

 nm=100;

var

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

 i,n:  integer;

begin

 randomize;

 write('vvedite n>10 ');

 readln(n);

 writeln('ishodniy massiv a:');

 for i:=1 to n do

 begin

   a[i]:=random(99)+1;

   write(a[i],' ');

 end;

 writeln;

 for i:=1 to n do

if i<=10 then b[i]:=a[i]+i

else b[i]:=a[i]-i;

writeln('massiv b:');    

  for i:=1 to n do write(b[i],' ');

 readln;

end.

Answer 2

Конечно, помогу вам с задачами по информатике в Паскале!

Задача 2: Замена элементов массива с k1-го по k2-ой в обратном порядке.

Для выполнения данной задачи, предположим, что у вас уже есть объявленный и заполненный массив A размерности n, и заданы значения k1 и k2, которые представляют индексы элементов массива, которые нужно заменить.

Пример кода на Паскале:

pascalCopy code
program ReplaceReverseArrayElements;

const
  n = 10; // Размерность массива A
var
  A: array[1..n] of Integer;
  k1, k2, temp, i: Integer;

begin
  // Заполняем массив A (введите значения элементов вашего массива):
  for i := 1 to n do
  begin
    Write('Введите элемент A[', i, ']: ');
    Readln(A[i]);
  end;

  // Вводим значения k1 и k2:
  Write('Введите k1 (от 1 до ', n, '): ');
  Readln(k1);
  Write('Введите k2 (от 1 до ', n, '): ');
  Readln(k2);

  // Проверяем, что k1 и k2 валидны:
  if (k1 >= 1) and (k2 >= k1) and (k2 <= n) then
  begin
    // Заменяем элементы массива A с k1-го по k2-ой на обратные элементы:
    while k1 < k2 do
    begin
      temp := A[k1];
      A[k1] := A[k2];
      A[k2] := temp;
      Inc(k1);
      Dec(k2);
    end;

    // Выводим измененный массив A:
    Write('Измененный массив A: ');
    for i := 1 to n do
      Write(A[i], ' ');
  end
  else
    Write('Ошибка: некорректные значения k1 и/или k2.');

  Readln;
end.

Задача 3: Формирование массива B по заданным правилам.

Для этой задачи предполагаем, что у нас есть уже заполненный массив A размерности n, и нам нужно сформировать массив B такой же размерности.

Пример кода на Паскале:

pascalCopy code
program GenerateArrayB;

const
  n = 20; // Размерность массива A и B
var
  A, B: array[1..n] of Integer;
  i: Integer;

begin
  // Заполняем массив A (введите значения элементов вашего массива):
  for i := 1 to n do
  begin
    Write('Введите элемент A[', i, ']: ');
    Readln(A[i]);
  end;

  // Формируем массив B:
  for i := 1 to n do
  begin
    if i <= 10 then
      B[i] := A[i] + i // Первые 10 элементов по формуле B[i]=A[i]+i
    else
      B[i] := A[i] - i; // Остальные по формуле B[i]=A[i]-i
  end;

  // Выводим массив B:
  Write('Массив B: ');
  for i := 1 to n do
    Write(B[i], ' ');

  Readln;
end.

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