паскаль,массивы,помогите пожалуйста)))
Есть два массива A(10) i B(6). Среди элементов каждого с них
нет таких которые повторяются. Сделать новый массив, который
содержит те элементы первого массива, которые
не встречаются во втором массиве. Вывести два начальных массива и новый
нет таких которые повторяются. Сделать новый массив, который
содержит те элементы первого массива, которые
не встречаются во втором массиве. Вывести два начальных массива и новый
подскажите что неправильно:
const n=10;m=6;
var a:array[1..n]of integer;
b:array[1..m]of integer;
c:array[1..100]of integer;
i,j,q,k:integer;
begin
clrscr;
for i:=1 to n do
begin
write('a[',i,']=');readln(a);
end;
writeln;
for j:=1 to m do
begin
write('b[',i,']=');readln(b);
end;
fillchar(c,sizeof(c),-1);
q:=1
for i:=1 to n do
for J:=1 to m do
if a<>b then
begin
c[q]:=a;
inc(q)
end;
q:=1 while (c[q]<>-1)and(q<=10)do
begin
writeln(c[q]);
inc(q)
end;
end.
const n=10;m=6;
var a:array[1..n]of integer;
b:array[1..m]of integer;
c:array[1..100]of integer;
i,j,q,k:integer;
begin
clrscr;
for i:=1 to n do
begin
write('a[',i,']=');readln(a);
end;
writeln;
for j:=1 to m do
begin
write('b[',i,']=');readln(b);
end;
fillchar(c,sizeof(c),-1);
q:=1
for i:=1 to n do
for J:=1 to m do
if a<>b then
begin
c[q]:=a;
inc(q)
end;
q:=1 while (c[q]<>-1)and(q<=10)do
begin
writeln(c[q]);
inc(q)
end;
end.
Цитата: andrewpl
подскажите что неправильно:...
неправильно отформатирован код ;)
После первого begin необходимо задать начальное q:=0;
Перед строкой c[q]:=a нужно увеличить q, например, inc(q);
Перед строкой c[q]:=a нужно увеличить q, например, inc(q);