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