Составьте программу , которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 , затем элементы с четными индексами удваивает, а с нечетными индексами утраивает. выведите на экран исходный и полученные массивы
225
383
Ответы на вопрос:
begin
var a : = arrrandom(10, 1, 10); a.println;
for var i : = 0 to a.high do
if i.isodd then a[i] *= 2
else a[i] *= 3;
a.println;
end.
const n=10;
var i: integer;
a: array[1..n] of integer;
begin
for i: =1 to n do
begin
a[i]: =random(10)+1;
write(a[i]: 2,' ');
if i mod 2 = 0 then a[i]: =a[i]*2
else a[i]: =a[i]*3
end;
writeln;
for i: =1 to n do write(a[i]: 2,' ')
end.
Популярно: Информатика
-
вероника105915.06.2021 22:16
-
vage20516.06.2020 17:49
-
сайнорбой20.04.2021 16:03
-
karo3523.06.2022 13:01
-
wexly05.09.2021 22:41
-
pelulachka22.04.2021 16:26
-
123456uiop12.12.2021 23:26
-
fma06042918.01.2022 15:14
-
дима095187181216.12.2022 19:13
-
DeM1234531.01.2023 00:27