разделить массив на два массива
подскажите как? заранее спасибо
Задан одномерный массив на n элементов. Разделить этот массив на два массива: в первый поместить числа, положительные и кратные числу 3, во второй - все остальные элементы.
Задан одномерный массив на n элементов. Разделить этот массив на два массива: в первый поместить числа, положительные и кратные числу 3, во второй - все остальные элементы.
ну имеется в виду что вы заведете 3 массива
ну да.....
вот так я делала:
uses crt;
const
n = 10;
var
a,b,c:array[1..n] of integer;
i,j,l:integer;
Begin clrscr;
writeln('Элементы массива:');
for i:=1 to n do
Begin
a:=random(10);
write(a,' ');
end;
writeln;
writeln('Элементы массива кратные 3:');
for i:=1 to n do
if (a>0) and (a mod 3=0) then
begin
inc(j);
b[j]:=a;
write(' ',b[j]);
end;
writeln;
writeln('Остальные элементы:');
for i:=1 to n do
if (a mod 3<>0) then
begin
inc(l);
c[l]:=a;
write(' ',c[j]);
end;
end.
вот так я делала:
uses crt;
const
n = 10;
var
a,b,c:array[1..n] of integer;
i,j,l:integer;
Begin clrscr;
writeln('Элементы массива:');
for i:=1 to n do
Begin
a:=random(10);
write(a,' ');
end;
writeln;
writeln('Элементы массива кратные 3:');
for i:=1 to n do
if (a>0) and (a mod 3=0) then
begin
inc(j);
b[j]:=a;
write(' ',b[j]);
end;
writeln;
writeln('Остальные элементы:');
for i:=1 to n do
if (a mod 3<>0) then
begin
inc(l);
c[l]:=a;
write(' ',c[j]);
end;
end.
ну, за исключением того что J и L хорошо бы проинициализировать := 0 в самом старте и того что J ошибочно подставлен вместо L в самом конце, все кажется нормально.