• Помогите на паскале.дан целочисленный массив.удалить из массива все одинаковые элементы оставив их последние вхождения.
Answers & Comments
srzontmp
Const n=30; var a: array[1..n] of integer; tek,k,i,j: integer; begin { заполнение массива и вывод на экран } for j:=1 to n do begin a[j]:=Random(20); write(a[j],' '); if (j mod 10 = 0) then writeln; end; writeln; { цикл обработки массива } for i:=1 to n do begin tek:=a[i]; k:=i; { просмотр на повторные } for j:=i+1 to n do begin if (a[j]=tek) then begin a[k]:=0; k:=j; end; end; end; { конец обработки массива } { вывод итогового массива на экран } for i:=1 to n do begin write(a[i],' '); if (i mod 10 = 0) then writeln; end; end.
Answers & Comments
var a: array[1..n] of integer;
tek,k,i,j: integer;
begin
{ заполнение массива и вывод на экран }
for j:=1 to n do
begin
a[j]:=Random(20);
write(a[j],' ');
if (j mod 10 = 0) then writeln;
end;
writeln;
{ цикл обработки массива }
for i:=1 to n do
begin
tek:=a[i];
k:=i;
{ просмотр на повторные }
for j:=i+1 to n do
begin
if (a[j]=tek) then
begin
a[k]:=0;
k:=j;
end;
end;
end; { конец обработки массива }
{ вывод итогового массива на экран }
for i:=1 to n do
begin
write(a[i],' ');
if (i mod 10 = 0) then writeln;
end;
end.