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.