• Помогите на паскале.дан целочисленный массив.удалить из массива все одинаковые элементы оставив их последние вхождения.
• Помогите на паскале.дан целочисленный массив.удалить из массива все одинаковые элементы оставив их последние вхождения.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы