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

Array66. Дан целочисленный массив размера $$N$$. Увеличить все четные числа, содержащиеся в массиве, на исходное значение первого четного числа. Если четные числа в массиве отсутствуют, то оставить массив без изменений.

Решение:

program Array66;
var
  a : array[1..10] of integer;
  N,Ak2,i:Integer;

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

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

  i:=1;
  Ak2:=0;
  while (a[i] mod 2 <> 0) and (i<=N) do i:=i+1;
  if i<=N then Ak2:=a[i];
  for i:=1 to N do if a[i] mod 2 = 0 then a[i]:=a[i]+Ak2;

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

program Array66;

var

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

N,Ak2,i:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i:=1;

Ak2:=0;

while (a[i] mod 2 <> 0) and (i<=N) do i:=i+1;

if i<=N then Ak2:=a[i];

for i:=1 to N do if a[i] mod 2 = 0 then a[i]:=a[i]+Ak2;

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

end.

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

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

Program a66;

Type 
 MyArray = array [1..10] of integer;

Procedure swap(k,n: integer; var a:MyArray);
Var
 TempArray: MyArray;
 i: integer;
Begin
 For i:=1 to n do TempArray[i]:=a[k];
 For i:=1 to n do
  If (a[i] mod 2 = 0) then a[i]:=a[i]+TempArray[i];
End;
  
Var
 a: MyArray;
 n,i,k: integer;
 
Begin
 k:=0;
 n:=random(1,10);
 Writeln('N=',n);
 Write('A: ');
 For i:=1 to n do
  Begin
   a[i]:=random(-10,10);
   Write(a[i],'  ');
   If (a[i] mod 2 = 0) and (k=0) then k:=i;
  End;
 Writeln();
 swap(k,n,a);
 Write('A: ');
 For i:=1 to n do Write(a[i],'  ');
End.

Program a66;

Type

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

Procedure swap(k,n: integer; var a:MyArray);

Var

TempArray: MyArray;

i: integer;

Begin

For i:=1 to n do TempArray[i]:=a[k];

For i:=1 to n do

If (a[i] mod 2 = 0) then a[i]:=a[i]+TempArray[i];

End;

Var

a: MyArray;

n,i,k: integer;

Begin

k:=0;

n:=random(1,10);

Writeln('N=',n);

Write('A: ');

For i:=1 to n do

Begin

a[i]:=random(-10,10);

Write(a[i],' ');

If (a[i] mod 2 = 0) and (k=0) then k:=i;

End;

Writeln();

swap(k,n,a);

Write('A: ');

For i:=1 to n do Write(a[i],' ');

End.

Ответить

For i:=1 to n do TempArray[i]:=a[k];
 For i:=1 to n do
  If (a[i] mod 2 = 0) then a[i]:=a[i]+TempArray[i];

For i:=1 to n do TempArray[i]:=a[k];

For i:=1 to n do

If (a[i] mod 2 = 0) then a[i]:=a[i]+TempArray[i];

Что то я не понял… вы создали массив состоящий из значения элемента a[k] а потом прибавляете …
В общем зачем?! почему не прибавлять a[k] вместо TempArray[i]? и вообще TempArray можно будет убрать..
Да и обвязка функции становиться больше тела функции…

Ответить

Kirk

27.04.2017 в 09:10

Да уж.. Что то увлекся немного

Ответить

Исправил 🙂

Program a66;

Type 
 MyArray = array [1..10] of integer;

Procedure swap(k,n: integer; var a:MyArray);
Var
 i: integer;
Begin
 For i:=1 to n do
  If (a[i] mod 2 = 0) then a[i]:=a[i]+k;
End;
  
Var
 a: MyArray;
 n,i,k: integer;
 
Begin
 k:=0;
 n:=random(1,10);
 Writeln('N=',n);
 Write('A: ');
 For i:=1 to n do
  Begin
   a[i]:=random(-10,10);
   Write(a[i],'  ');
   If (a[i] mod 2 = 0) and (k=0) then k:=a[i];
  End;
 Writeln();
 swap(k,n,a);
 Write('A: ');
 For i:=1 to n do Write(a[i],'  ');
End.

Program a66;

Type

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

Procedure swap(k,n: integer; var a:MyArray);

Var

i: integer;

Begin

For i:=1 to n do

If (a[i] mod 2 = 0) then a[i]:=a[i]+k;

End;

Var

a: MyArray;

n,i,k: integer;

Begin

k:=0;

n:=random(1,10);

Writeln('N=',n);

Write('A: ');

For i:=1 to n do

Begin

a[i]:=random(-10,10);

Write(a[i],' ');

If (a[i] mod 2 = 0) and (k=0) then k:=a[i];

End;

Writeln();

swap(k,n,a);

Write('A: ');

For i:=1 to n do Write(a[i],' ');

End.

Пришлось также поменять строчку #29:

   If (a[i] mod 2 = 0) and (k=0) then k:=a[i];

1	If (a[i] mod 2 = 0) and (k=0) then k:=a[i];

А то присваивалось новое значение k после увеличения первого четного

Ответить

Anton

27.04.2017 в 09:56

Да, так лучше… 🙂 но всё таки считаю, что функция конкретно в этом случае излишня. Из за неё приходиться объявлять тип:

Delphi/Pascal

Type MyArray = array [1..10] of integer;

1
2

Type
MyArray = array [1..10] of integer;

Писать обвязку:

Procedure swap(k,n: integer; var a:MyArray); Var i: integer; Begin ... End;

1
2
3
4
5
6

Procedure swap(k,n: integer; var a:MyArray);
Var
i: integer;
Begin
...
End;

И вызывается она в таком месте, что конструкция :

Delphi/Pascal

For i:=1 to n do If (a[i] mod 2 = 0) then a[i]:=a[i]+k;

1
2

For i:=1 to n do
If (a[i] mod 2 = 0) then a[i]:=a[i]+k;

Никак не ухудшила бы читаемость…
Но если это всё сделать то будет практически тоже самое, что и в шапке 🙂

Ответить

Bronislav

03.08.2018 в 17:55

Если массив не содержит четных чисел, то в строке 19 ошибка выхода индекса за границу массива. Нужно поменять условия местами, чтобы проверялось сначала i <= N

Ответить

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

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

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

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