Дан целочисленный массив из 10 целых чисел. Преобразуйте его, прибавив к нечетным числам значение последнего элемента. Последний элемент массива оставьте без изменений.(В Паскале)

1

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-12-23T18:05:28+04:00

var a:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 9 do

if a[i] mod 2=1 then a[i]:=a[i]+a[10];

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