Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10, затем элементы с чётными индексами удваивает, а элементы с нечётными индексами утраивает. Выведите на экран исходный и полученный массивы.
Ответы
Ответ дал:
0
var a:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(1,10);
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do if(i mod 2 = 0) then a[i]:=a[i]*2 else a[i]:=a[i]*3;
for i:=1 to 10 do write(a[i],' ');
end.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад