Увеличить все нечётные числа, содержащиеся в массиве, на исходное значение последнего нечётного числа

@Катрин1406 · Регистрация: 02.05.2011

Author24 — интернет-сервис помощи студентам

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

@Holy_Metal · 07.05.2011, 22:40

Pascal

uses crt;
const n=10;
var
   a:array[1..n] of integer;
   i,k:integer;
begin
for i:=1 to n do
    begin
         a[i]:=random(100);
         write(a[i]:4);
    end;
writeln;
if odd(n) then k:=a[n]
          else k:=a[n-1];
for i:=1 to n do
    begin
         if odd(i) then begin a[i]:=a[i]+k; write(a[i]:4); end
                   else write(a[i]:4);
    end;
end.

@Omlette · 07.05.2011, 22:47

Pascal

var a:array [1..50] of integer; i,k,n:integer;
 begin
  writeln('Ââåäèòå ðàçìåðíîñòü ');
  readln(n);
  writeln('Ââåäèòå ìàññèâ ');
  for i:=1 to n do readln(a[i]);
  k:=0;
  while (i>1) and (k=0) do if (a[i]mod 2)=1 then k:=a[i];
  for i:=1 to n do if a[i]mod 2 =1 then a[i]:=a[i]+k;
  for i:=1 to n do write(a[i]:3);
end.

@Катрин1406 1 / 1 / 0 Регистрация: 02.05.2011 Сообщений: 16
		1
	Увеличить все нечётные числа, содержащиеся в массиве, на исходное значение последнего нечётного числа 07.05.2011, 15:42. Показов 2971. Ответов 2 Метки нет (Все метки) Дан целочисленный массив размера N.Увеличить все нечётные числа, содержащиеся в массиве, на исходное значение последнего нечётного числа. Если в массиве нечетные числа отсупствуют, то массив оставить без изменений. 0

	07.05.2011, 22:47

Увеличить все нечётные числа, содержащиеся в массиве, на исходное значение последнего нечётного числа

Решение