Переписать елементы из одного массива в другой

[allegri]

Добрый вечер! Всех с прошедшим новым годом!

Требуется составить программу, в которой описан массив целых чисел, и переписать все елементы меньше 10 в другой массив, пересчитав их количество.

program 132;
uses crt;
var
mas1,mas2:array[1..5] of integer;
i,j,k:integer;
begin
clrscr;
for i:=1 to 5 do
readln(mas1[i]);
writeln;
for i:=1 to 5 do
write(mas1[i],' ');
writeln;
k:=0;
for i:=1 to 5 do
if mas1[i]<10 then
begin
mas2[j]:=mas1[i];
write(mas2[j],' ');
inc(k);
end;
writeln('Kilkist chusel<10:',k);
readkey;
end.

Моя проблема в том, что во втором массиве последний елемент почему-то повторяется 2 раза.
Помогите пожалуйста! Заранее спасибо!

[Niro]

Присоединяюсь. Всех с праздником
Судя по вашему коду она не должна делать и того что вы написали.
Где у вас увеличивается переменная j ?

for i:=1 to 5 do
begin
   if mas1[i]<10 then begin
                                      k:=k+1;
                                      mas2[k]:=mas1[i];
                                   end;
end;

P.S.: лучше заполняйте массив рандомно

[MoBLer]

Вот подправил немного

program edf;
uses crt;
var
mas1,mas2:array[1..5] of integer;
i,j,k:integer;
begin
clrscr;
for i:=1 to 5 do
readln(mas1[i]);
writeln;
for i:=1 to 5 do
write(mas1[i],' ');
writeln;

k:=0; j:=1;
for i:=1 to 5 do
if mas1[i]<10 then
begin
mas2[j]:=mas1[i];
write(mas2[j],' ');
inc(k);   inc(j);
end;
writeln('Kilkist chusel<10:',k);
readkey;
end.

Странно и как она работала

[allegri]

Сообщение от Niro

P.S.: лучше заполняйте массив рандомно

Знаю, но задание просило именно задавать значения вручную..

Niro, MoBLer спасибо большое! Вы мне очень помогли!