Показать сообщение отдельно
Старый 23.12.2012, 05:09   #1 (permalink)
Serega61
Новичок
 
Регистрация: 23.12.2012
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Сжатие массива

Дан массив 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
Serega61 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070