Предмет: Информатика, автор: kyznetsovatanya

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

Ответы

Автор ответа: Аноним
0
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.  
Автор ответа: kyznetsovatanya
0
А можешь помочь еще одну программу в паскале написать?
Автор ответа: Аноним
0
Попробовать можно
Автор ответа: Аноним
0
Ответа не дождался, ушел
Автор ответа: kyznetsovatanya
0
http://znanija.com/task/9553262
Похожие вопросы
Предмет: Биология, автор: samiralieva119
Предмет: Биология, автор: Nyaaasha