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

Array94. Дан целочисленный массив размера $$N (\gt 2)$$. Удалить из массива все элементы с нечетными номерами ($$1, 3, …$$). Условный оператор не использовать.

Решение:

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

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

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

  i:=1;
  k:=2;
  while (k<=N) do
   begin
    a[i]:=a[k];
    k:=k+2;
    i:=i+1;
   end;
  N:=i-1;


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

program Array94;

var

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

N,i,k:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i:=1;

k:=2;

while (k<=N) do

begin

a[i]:=a[k];

k:=k+2;

i:=i+1;

end;

N:=i-1;

Writeln(N);

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

end.

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

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

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

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