Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с нечетными значениями в три раза, а элементы с четными значениями заменяя на 0
143
416
Ответы на вопрос:
{ код на Паскале }
program Prog;
var a: array[1..10] of Integer;
i: Integer;
begin
randomize;
for i := 1 to 10 do
a[i]:=random(10)+1;
{ вывод изначального массива }
for i := 1 to 10 do
write(a[i],' ');
writeln;
{ преобразования }
for i := 1 to 10 do
if ( (a[i] mod 2) = 1 ) then
a[i]*=3
else
a[i]:=0;
{ вывод измененного массива }
for i := 1 to 10 do
write(a[i],' ');
end.
Популярно: Информатика
-
smail55014.01.2023 04:02
-
Ddoj22.04.2022 18:05
-
Nookrod25.08.2021 12:13
-
Grinberg200312.08.2020 11:41
-
jiminiry0206.12.2020 17:21
-
Лина23050210.06.2020 14:52
-
nik23245125.05.2023 12:11
-
renata5928.11.2021 03:22
-
NcsON11.04.2020 11:05
-
Pandochka777104.03.2022 17:22