Решаем задачи Абрамян на Паскале. Array97

Array97. Дан целочисленный массив размера $$N$$. Удалить из массива все одинаковые элементы, оставив их последние вхождения.

Решение:

program Array97;
var
  a : array[1..10] of Integer;
  N,i,i2,k:Integer;

begin
  Write('N: ');
  Readln(N);

  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  repeat
   k:=11;
   for i:=1 to N do
    for i2:=i+1 to N do
    if a[i]=a[i2] then k:=i;

   if k<>11 then
    begin
     N:=N-1;
     for i:=K to N do a[i]:=a[i+1];
    end;
  until (k=11);

  Writeln(N);
  for i:=1 to N do writeln(i,' :',a[i]);
end.

program Array97;

var

a : array[1..10] of Integer;

N,i,i2,k:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

repeat

k:=11;

for i:=1 to N do

for i2:=i+1 to N do

if a[i]=a[i2] then k:=i;

if k<>11 then

begin

N:=N-1;

for i:=K to N do a[i]:=a[i+1];

end;

until (k=11);

Writeln(N);

for i:=1 to N do writeln(i,' :',a[i]);

end.

Задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array97

Комментарии:

Добавить комментарий Отменить ответ