Question

Дана одновимірна матриця близько 12. Знайти номери рядків всіх парних елементів. сделать в Pascal

Answer 1

var m: array [1..12] of integer;

i: integer;

begin

       for i := 1 to 12 do

       begin

               m[i] := random(21) - 10;

               write(m[i]:4);

       end;

       writeln();

   

       write('Номери рядків всіх парних елементів:');

       for i := 1 to 12 do

       begin

               if m[i] mod 2 = 0 then

                       write(i:4);

       end;

end.

Answer 2

У Pascal одновимірні масиви називаються "масивами" або "одновимірними масивами". Також, варто зазначити, що матриці визначаються в Pascal як двовимірні масиви. Оскільки у вас є одновимірний масив, то ми знайдемо номери рядків, але їх фактично буде один, бо масив одновимірний.

Ось приклад коду на Pascal, що знаходить номери рядків всіх парних елементів у одновимірному масиві:

pascalCopy code
program FindEvenElementRows;

const
  N = 12;

type
  TOneDimensionalArray = array[1..N] of Integer;

var
  arr: TOneDimensionalArray;
  i: Integer;

procedure FindEvenElementRows(const arr: TOneDimensionalArray);
var
  evenElementRows: array of Integer;
  count: Integer;
  row: Integer;
begin
  count := 0;
  SetLength(evenElementRows, 0);
  
  // Знаходимо номери рядків парних елементів
  for i := 1 to N do
  begin
    if arr[i] mod 2 = 0 then
    begin
      Inc(count);
      SetLength(evenElementRows, count);
      evenElementRows[count - 1] := i;
    end;
  end;
  
  // Виводимо номери рядків парних елементів
  writeln('Номери рядків парних елементів:');
  for row in evenElementRows do
    writeln(row);
end;

begin
  // Заповнюємо масив довільними значеннями (цілі числа)
  for i := 1 to N do
    arr[i] := Random(100); // Випадкове число від 0 до 99
  
  // Виводимо масив для перевірки
  writeln('Масив:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;
  
  FindEvenElementRows(arr);
end.

У цьому коді ми створили процедуру FindEvenElementRows, яка приймає одновимірний масив та знаходить номери рядків (у нашому випадку номер рядка в одновимірному масиві), які містять парні елементи. Всі номери рядків зберігаються в масиві evenElementRows, який потім виводиться на екран.