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

Array92. Дан целочисленный массив размера $$N$$. Удалить из массива все нечетные числа и вывести размер полученного массива и его содержимое.

Решение:

program Array92;
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;

  k:=0;
  for i:=1 to n do
   if not odd(a[i]) then
    begin
     inc(k);
     a[k]:=a[i];
    end;


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

program Array92;

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;

k:=0;

for i:=1 to n do

if not odd(a[i]) then

begin

inc(k);

a[k]:=a[i];

end;

Writeln(N);

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

readln;

end.

Решение:

program Array92;
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;

  repeat
   k:=11;
   for i:=1 to N do if (a[i] mod 2) <>0 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 Array92;

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;

repeat

k:=11;

for i:=1 to N do if (a[i] mod 2) <>0 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.

Решение от olegst1975:

type
  mas=array [1..10]of integer;
var
  n,i:integer;      
  a:mas;

procedure del_odd_numbers(var a:mas;i:integer;var n:integer);
 var
 i1:integer; 
  begin
    if i>n then exit;
    if (not odd(a[i])) then del_odd_numbers(a,i+1,n)
    else
      begin
       dec(n);
       for i1:=i to n do a[i1]:=a[i1+1];
       del_odd_numbers(a,i,n);
      end;
  end;
  
begin 
  readln(n);        
  for i:=1 to n do readln(a[i]);
  del_odd_numbers(a,1,n);
  writeln(n);  
  for i:=1 to n do writeln(a[i]);
end.

type

mas=array [1..10]of integer;

var

n,i:integer;

a:mas;

procedure del_odd_numbers(var a:mas;i:integer;var n:integer);

var

i1:integer;

begin

if i>n then exit;

if (not odd(a[i])) then del_odd_numbers(a,i+1,n)

else

begin

dec(n);

for i1:=i to n do a[i1]:=a[i1+1];

del_odd_numbers(a,i,n);

end;

begin

readln(n);

for i:=1 to n do readln(a[i]);

del_odd_numbers(a,1,n);

writeln(n);

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

end.

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

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

То же самое процедурой

[crayon-673e972ad14f4854315374 inline="true" ]
type
  mas=array [1..10]of integer;
var
  n,i:integer;      
  a:mas;

procedure del_odd_numbers(var a:mas;i:integer;var n:integer);
 var
 i1:integer; 
  begin
    if i>n then exit;
    if (not odd(a[i])) then del_odd_numbers(a,i+1,n)
    else
      begin
       dec(n);
       for i1:=i to n do a[i1]:=a[i1+1];
       del_odd_numbers(a,i,n);
      end;
  end;
  
begin 
  readln(n);        
  for i:=1 to n do readln(a[i]);
  del_odd_numbers(a,1,n);
  writeln(n);  
  for i:=1 to n do writeln(a[i]);
end.

[crayon-673e972ad14f4854315374 inline="true" ]

type

mas=array [1..10]of integer;

var

n,i:integer;

a:mas;

procedure del_odd_numbers(var a:mas;i:integer;var n:integer);

var

i1:integer;

begin

if i>n then exit;

if (not odd(a[i])) then del_odd_numbers(a,i+1,n)

else

begin

dec(n);

for i1:=i to n do a[i1]:=a[i1+1];

del_odd_numbers(a,i,n);

end;

begin

readln(n);

for i:=1 to n do readln(a[i]);

del_odd_numbers(a,1,n);

writeln(n);

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

end.

[/crayon]

Ответить

Anton

11.04.2016 в 10:46

Только мне exit

if i>n then exit;

1

if i>n then exit;

не нравится.
Я бы бурчать начал… но сейчас прохожу CodeCombat… так там прямо учат пользоваться break и continue …. притом, ещё до условного выхода из циклов…
То есть делаем бесконечный цикл… кучу заданий по нему…
А потом такие… что? вам нужно из него выйти… ничего нет проще! if ла ла ла then break.
Я прямо в шоке был…
Ну это так… не знал где высказаться по этой теме, а к психиатору по этому поводу в России ходить не принято 🙂

Ответить
- Newton
  
  29.11.2016 в 21:54
  
  Какие впечатления от CodeCombat?
  
  Ответить
  - Anton
    
    30.11.2016 в 11:07
    
    ответил вот здесь http://coolcode.ru/forums/topic/vopros-ot-newton/
    
    Ответить

Как вариант:)

program abc;


var
  i,n,j: integer;
a:array[1..15] of integer;
begin
  read(n);
  j:=0;
  for i:=1 to n do
     begin 
     inc(j); 
     read(a[j]); 
     if odd(a[j]) then dec(j); 
     end;
  for i:=1 to j do write(a[i],' ');
end.

program abc;

var

i,n,j: integer;

a:array[1..15] of integer;

begin

read(n);

j:=0;

for i:=1 to n do

begin

inc(j);

read(a[j]);

if odd(a[j]) then dec(j);

end;

for i:=1 to j do write(a[i],' ');

end.

Ответить

Anton

22.06.2017 в 12:59

мне не очень нравиться… 🙁 , задание: «Дан целочисленный массив размера N»
А в решении, как такого го массива никогда не существует… вопрос как интерпретировать слово «дан». 🙂

Ответить

program array_92;//pascalABC.net

begin
  var n := 10;
  var a := Arr(1, 2, 3, 4, 5, 6, 7, 8, 9, 0);
  
  a := a.Where(t -> t.isEven).Select(t -> t).ToArray;
  a.Println//2 4 6 8 0
end.

program array_92;//pascalABC.net

begin

var n := 10;

var a := Arr(1, 2, 3, 4, 5, 6, 7, 8, 9, 0);

a := a.Where(t -> t.isEven).Select(t -> t).ToArray;

a.Println//2 4 6 8 0

end.

begin
  var n := 10;
  var l := Lst(1, 2, 3, 4, 5, 6, 7, 8, 9, 0);
  var i := 0;
  
  while i < l.Count do
  begin
    if l[i].IsOdd then
      l.RemoveAt(i);
    i += 1;
  end;
  
  l.Println//2 4 6 8 0
end.

begin

var n := 10;

var l := Lst(1, 2, 3, 4, 5, 6, 7, 8, 9, 0);

var i := 0;

while i < l.Count do

begin

if l[i].IsOdd then

l.RemoveAt(i);

i += 1;

end;

l.Println//2 4 6 8 0

end.

Ответить

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

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

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

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