Question

Сформировать второй массив из положительных элементов первого массива. Pascal

Answer 1

var

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

i,n,kol:longint;

Begin

 read(n);  // вводим количество элементов массива

 for i:=1 to n do

 read(a[i]);   // заполняем массив в ручную

kol:=0; // счётчик положительных чисел

for i:=1 to n do

 if a[i]>0 then begin kol:=kol+1; b[kol]:=a[i];  end;  // если число положительное увеличиваем  счётчик положительных чисел и заполняем массив b положительным числом из массива a

for i:=1 to kol do

write(b[i],' ');     // выводим элементы массива b через пробел

END.

Answer 2

Конечно! Вот пример кода на Pascal, который создает второй массив из положительных элементов первого массива:

pascalCopy code
program PositiveArray;

const
  N = 10; // Размер первого массива

var
  arr1: array[1..N] of Integer; // Первый массив
  arr2: array of Integer;       // Второй массив
  i, count: Integer;

begin
  // Заполнение первого массива
  for i := 1 to N do
  begin
    Write('Введите элемент arr1[', i, ']: ');
    Readln(arr1[i]);
  end;

  // Подсчет положительных элементов
  count := 0;
  for i := 1 to N do
  begin
    if arr1[i] > 0 then
      Inc(count);
  end;

  // Заполнение второго массива из положительных элементов
  SetLength(arr2, count);
  count := 0;
  for i := 1 to N do
  begin
    if arr1[i] > 0 then
    begin
      arr2[count] := arr1[i];
      Inc(count);
    end;
  end;

  // Вывод второго массива
  Writeln('Второй массив из положительных элементов:');
  for i := 0 to High(arr2) do
    Write(arr2[i], ' ');
  
  Readln;
end.

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