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

Question

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

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

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.