работа с несколькими массивами Опции

[kissliatinka]

Array56. Дан целочисленный массив A размера N (Ј 15). Переписать в новый целочисленный массив B все элементы с порядковыми номерами, кратными трем (3, 6, …), и вывести размер полученного массива B и его содержимое. Условный оператор не использовать.

заранее благодарю

[FreeMan]

uses ctr;
const
n=15;
var
a,b:array [1..n] of integer;
i,j:word;
begin
randomize;
clrscr;
for i:=1 to n do a[i]:=random(100);{zapolnit'}
j:=1;
for i:=3 to n do begin b[j]:=a[i]; inc(i,2); inc(j) end;
for i:=1 to j-1 do writeln(b[i]:5);
writeln('razmer',j-1);
readkey
end.

[klem4]

Freeman, ты чо

for i:=3 to n do begin 
                    b[j]:=a[i]; 
                    inc(i,2); inc(j) 
                 end;

Это ктож внутри цикла фор меняет переменную цикла

[FreeMan]

Правила есть, чтоб их нарушать. Тем более условный оператор не использовать. Могу ещё фор на гоуту поменять

[volvo]

To: FreeMan
Правила нарушать НЕ рекомендуется никогда... Тем более, когда ты не знаешь, на каком компиляторе эта программа будет тестироваться. Например, Дельфи - "Консольное приложение" ... И что будет?

[FreeMan]

i:=3
while i<n+1 do begin
b[j]:=a[i]; inc(i,3); inc(j)
end;

так надо?
зы. а что будет с консольным в делфях?

Сообщение отредактировано: FreeMan - 15.11.2005 14:28

[klem4]

1) Так ) Но всетаки обычно пишут :

while(i<=n) ...

2) см. аттач