Дан массив x(n). Переписать в массив y(n) элементы массива x, большие 3. pascal ABC. Как убрать нули во втором массиве?
program lab9_3;
const n=10;
var a: array[1..n] of real;
b: array[1..n] of real;
i,kol: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln('a=', a[i]);
end;
kol:=1;
for i:=1 to n do
begin
if a[i]>3 then
b[kol]:=a[i];
kol:=kol+1;
writeln('b[i]=',b[i]);
end;
end.
Результат:
a=-38
a=9
a=48
a=34
a=-9
a=30
a=22
a=23
a=29
a=35
b[i]=0
b[i]=9
b[i]=48
b[i]=34
b[i]=0
b[i]=30
b[i]=22
b[i]=23
b[i]=29
b[i]=35