лаба по паскалю

[Димитрон]

Народ, плиз, помогите с заданием по массивам. Нифига не получается(((
Дан массив X(100). Переписать в массив Y(50) элементы массива X с нечётными порядковыми номерами, а в массив Z - элементы массива X, кратные 5.
Последняя прога и я свободен от инфы, плиз, выручите)))

[r9m]

ну ты чего руки опустил, в чём проблема то? У тебя тут простая работа с функцией mod (если нацело делится то отдаёт нуль) вот от этого и пляши.

[Tkirill]

uses crt;
var
y:array[1..50] of integer;
x,z:array[1..100] of integer;
ny,nz:integer;
i:integer;
begin
clrscr;
randomize;
for i:=1 to 100 do
 begin
 x[i]:=random(100);
 write(x[i],'  ');
 end;
ny:=0; nz:=0;
for i:=1 to 100 do
 begin
 if i mod 2=0 then begin ny:=ny+1; y[ny]:=x[i]; end;
 if x[i] mod 5 =0 then begin nz:=nz+1; z[nz]:=x[i]; end;
 end;
writeln;
writeln;
for i:=1 to ny do
 write(y[i],'   ');
writeln;
writeln;
for i:=1 to nz do
 write(z[i],'   ');
readln;
end.