Question

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

Answer 1

Const
  n=10;
var
  a:array[1..n]of integer;
  i,k:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
  begin
  a[i]:=random(10);
  write(a[i]:4);
  if a[i] mod 2>0 then k:=a[i];
  end;
writeln;  
if k>0 then
  for i:=1 to n do
    if a[i] mod 2>0 then a[i]:=k+a[i];
writeln('Конечный массив:');
for i:=1 to n do  write(a[i]:4);
end.