Составьте программу, которая заполняет массив a [1..10] случайными целыми числами в диапазоне от 1 до 10 а затем элементы с чётными индексами удваивает, а элементы с нечетными индексами утраивает. Выведите на экран исходный и ...
Составьте
программу, которая заполняет массив a [1..10] случайными целыми числами в
диапазоне от 1 до 10 а затем элементы с
чётными индексами удваивает, а элементы с нечетны
ми индексами
утраивает. Выведите на экран исходный и полученный массивы.
Гость
Ответ(ы) на вопрос:
Гостьprogram massiv;
var a:array[1..10] of integer; i:integer;
begin
for i:=1 to 10 do begin // Генерируем массив,
a[i]:=random(10)+1; // заполняя его случайными числами от 1 до 10 и
write(a[i]:3); // выводим его
end;
for i:=1 to 10 do begin // Начинаем проверку индексов и
if i mod 2=0 then a[i]:=2*a[i] // если остаток от деления индекса на 2 равен 0,
// т.е индекс чётный, мы удваиваем элемент массива с этим индексом
else a[i]:=3*a[i]; // иначе (т.е при нечётном индексе) утраиваем элемент массива с этим индексом
end;
writeln; //пустая строка, чтобы не спутались массивы
for i:=1 to 10 do write(a[i]:3); //выводим новый массив
end.
Есть вопросы - в ЛС или в комментариях к решению.
Не нашли ответ?
Похожие вопросы