Составьте программу ,которая заполняет массив а[1..10 ] случайными целыми числами в...

Question

Составьте программу ,которая заполняет массив а[1..10 ] случайными целыми числами в диапазоне от 15 до 40 , затем элементы с четными индексами удваиваются , а элементы с нечетными индексами утраивает. Выведите на экран исходный и полученный массив.

Answer 1

program dartdeet;

var a:array[1..10] of integer;

i, temp:integer;

begin

for i:= 1 to 10 do

a[i]:=random(26)+15;

writeln('Исходный массив:');

for i:= 1 to 10 do

write(a[i]:3, ' ');

writeln;

for i:= 1 to 10 do

if i mod 2 = 0 then  

a[i]:=a[i]*2

else

a[i]:=a[i]*3;

writeln('Преобразованный массив:');

for i:= 1 to 10 do

write(a[i]:3, ' ');

end.