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

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

Решение:

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

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

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;

for i:=1 to N do if a[i] mod 2 <> 0 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 можно посмотреть здесь.

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

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

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