Question

PASCAL ABC NET дан массив , состоящий из n элементов, элементы массива -произвольные целые числа , распечатать элементы в 2 строки . в 1 строке элементы с не четными индексами , а во 2 строке элементы с четными индексами

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 var s := a.Partition((v, i) -> i.IsEven);

 s[0].Println;

 s[1].Println;

end.

n= 10

24 31 -29 -21 32 23 -17 34 16 -25

24 -29 32 -17 16

31 -21 23 34 -25

Answer 2

Для решения данной задачи на языке программирования Pascal ABC NET можно использовать следующий код. В нем мы будем обращаться к элементам массива по индексу и распечатываем элементы с четными и нечетными индексами на разных строках:

pascalCopy code
program PrintArrayElements;
const
  MAX_SIZE = 100; // Максимальный размер массива
var
  arr: array[1..MAX_SIZE] of integer;
  n, i: integer;

begin
  // Вводим размер массива
  write('Введите количество элементов массива: ');
  readln(n);

  // Проверка на валидность введенного размера массива
  if (n < 1) or (n > MAX_SIZE) then
  begin
    writeln('Неверный размер массива. Пожалуйста, введите число от 1 до ', MAX_SIZE);
    exit;
  end;

  // Вводим элементы массива
  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

  // Выводим элементы в 2 строки
  writeln('Элементы с нечетными индексами:');
  for i := 1 to n do
  begin
    if i mod 2 <> 0 then
      write(arr[i], ' ');
  end;

  writeln(); // Переход на новую строку

  writeln('Элементы с четными индексами:');
  for i := 1 to n do
  begin
    if i mod 2 = 0 then
      write(arr[i], ' ');
  end;
end.

Программа позволяет пользователю ввести количество элементов массива, а затем вводить сами элементы. После этого она выводит элементы массива с нечетными индексами в первой строке и элементы с четными индексами во второй строке.