1) Составте программуб которая заполняет массив а[1 ... 10] случайными целыми числами в диапозоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с четными значениями на 1. Если элементы с чётными значениями отсутствуют, оставить массив без изменений.

2) Составте программуб которая заполняет массив а[1 ... 10] случайными целыми числами в диапозоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с нечётными значениями в три раза, а элементы с чётными значениями заменяя на 0.

Question

Информатика

Леония

13 октября, 15:05

1) Составте программуб которая заполняет массив а[1 ... 10] случайными целыми числами в диапозоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с четными значениями на 1. Если элементы с чётными значениями отсутствуют, оставить массив без изменений.

2) Составте программуб которая заполняет массив а[1 ... 10] случайными целыми числами в диапозоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с нечётными значениями в три раза, а элементы с чётными значениями заменяя на 0.

+2

Ответы (1)

Знаете ответ на вопрос?

Фивея · Answer 1

1) var a:array [1 ... 10] of integer;

i:integer;

begin

for i:=1 to 10 do

read (a[i]) ;

for i:=1 to 10 do

begin

if a[i] mod 2 = 0 then

a[i]:=a[i]+1;

writeln (a[i]) ;

end;

end.

2)

var a:array [1 ... 10] of integer;

i:integer;

begin

for i:=1 to 10 do

read (a[i]) ;

for i:=1 to 10 do

if (a[i]+1) mod 2 = 0 then

begin

a[i]:=a[i]*3;

writeln (a[i]) ;

end

else

begin

if a[i] mod 2 = 0 then

writeln (0) ;

end;

end.