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

Array122. Дано целое число $$K (\gt 1)$$ и целочисленный массив размера $$N$$. Удалить из массива серию с номером $$K$$. Если серий в массиве меньше $$K$$, то вывести массив без изменений.

Решение:

program Array122;
var
 a,b : array [1..20] of real;
 N,K,i,i2,ki: integer;

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

 Write('K: ');
 Readln(K);

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

 i2:=0;
 ki:=1;
 for i:=1 to N-1 do
  begin
   if ki <> K  then
    begin
     inc(i2);
     b[i2]:=a[i];
    end;
   if a[i]<>a[i+1] then inc(ki);
  end;

 if ki <> K  then
  begin
   inc(i2);
   b[i2]:=a[i];
  end;

 a:=b;

 for i:=1 to i2 do writeln(a[i]);
end.

program Array122;

var

a,b : array [1..20] of real;

N,K,i,i2,ki: integer;

begin

Write('N: ');

Readln(N);

Write('K: ');

Readln(K);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i2:=0;

ki:=1;

for i:=1 to N-1 do

begin

if ki <> K then

begin

inc(i2);

b[i2]:=a[i];

end;

if a[i]<>a[i+1] then inc(ki);

end;

if ki <> K then

begin

inc(i2);

b[i2]:=a[i];

end;

a:=b;

for i:=1 to i2 do writeln(a[i]);

end.

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

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

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

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

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