1)Составте программуб которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10,затем преобразовывает его,увеличивая все элементы с четными значениями на 1. Если элементы с чётными значениями отсутствую...
1)Составте программуб которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10,затем преобразовывает его,увеличивая все элементы с четными значениями на 1. Если элементы с чётными значениями отсутствуют, оставить массив без изменений.
2) Составте программуб которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10,затем преобразовывает его,увеличивая все элементы с нечётными значениями в три раза,а элементы с чётными значениями заменяя на 0.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы