Сжатие массива

[Serega61]

Сжатие массива

Дан массив x. Переписать в массив y элементы массива 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:=random(100)-50;
writeln('a=', a);
end;
kol:=1;
for i:=1 to n do
begin
if a>3 then
b[kol]:=a;
kol:=kol+1;
writeln('b=',b);
end;
end.


Результат:
a=-38
a=9
a=48
a=34
a=-9
a=30
a=22
a=23
a=29
a=35
b=0
b=9
b=48
b=34
b=0
b=30
b=22
b=23
b=29
b=35

 

[duc]

Кроме оператора then, есть ещё и else
Вы просто обходите случай, когда число в первом массиве меньше трёх.

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:=random(100)-50;
writeln('a=', a);
end;
kol:=1;
for i:=1 to n do
begin
if a>3 then begin
b[kol]:=a;
writeln('b[kol]=',b[kol]);
kol:=kol+1;
end;
else rem;
end;
end.

К сожалению Паскаля под руками нет, да и голова ещё не просохла со вчерашнего, так что проверить сейчас не могу
В разных версиях компиляторов результаты могут быть разными.
И, пожалуйста, выбирайте раздел для создания темы. Переношу...
P.S. Формулируйте задачи точнее.

 

[Vladimir_S]

В цикле несколько ошибок. У Вас:

kol:=1;
for i:=1 to n do
begin
if a>3 then
b[kol]:=a;
kol:=kol+1;
writeln('b=',b);
end;

Надо:

kol:=0; 
for i:=1 to n do  
 if a[i]>3 then
  begin 
   kol:=kol+1;
   b[kol]:=a[i]; 
   writeln('b[',kol,']=',b[kol]); 
  end;

 

[Serega61]

Спасибо, помогло, все работает!