Question

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

Answer 1

Var
a: array[1..5] of integer;
b: array[1..10] of integer;
i: integer;
begin
//считываем элементы массивов
for i:=1 to 5 do readln(a[i]);
for i:=1 to 10 do readln(b[i]);
//преобразуем массив А
for i:=1 to 5 do
begin
  if a[i] > 9 then
    a[i]:=9;
  if a[i] < 5 then
    a[i]:=5;
end;
//преобразуем массив B
for i:=1 to 10 do
begin
  if b[i] > 9 then
    b[i]:=9;
  if b[i] < 5 then
    b[i]:=5;
end;
end.

Answer 2

Приведенный ниже код на языке Паскаль выполняет преобразование для двух заданных одномерных массивов разной размерности:

program TransformArrays;

const
  N = 10; // размерность первого массива
  M = 5; // размерность второго массива

var
  array1: array[1..N] of Integer; // первый массив
  array2: array[1..M] of Integer; // второй массив
  i: Integer; // переменная для цикла

begin
  // заполнение первого массива случайными значениями от 1 до 10
  for i := 1 to N do
    array1[i] := Random(10) + 1;

// заполнение второго массива случайными значениями от 1 до 10
  for i := 1 to M do
    array2[i] := Random(10) + 1;

// преобразование первого массива
  for i := 1 to N do
  begin
    if array1[i] > 9 then
      array1[i] := 9
    else if array1[i] < 5 then
      array1[i] := 5;
  end;

// преобразование второго массива
  for i := 1 to M do
  begin
    if array2[i] > 9 then
      array2[i] := 9
    else if array2[i] < 5 then
      array2[i] := 5;
  end;

// вывод первого массива
  writeln('Первый массив:');
  for i := 1 to N do
    write(array1[i], ' ');

// вывод второго массива
  writeln;
  writeln('Второй массив:');
  for i := 1 to M do
    write(array2[i], ' ');

readln;
end.

В данном коде создаются два одномерных массива `array1` и `array2` с заданными размерностями `N` и `M` соответственно. Затем массивы заполняются случайными значениями от 1 до 10.

Далее выполняется преобразование каждого массива согласно заданным условиям. Если элемент массива больше 9, то он заменяется на 9. Если элемент массива меньше 5, то он заменяется на 5. Все остальные элементы остаются без изменения.

После преобразования массивы выводятся на экран.