Question

составьте программу которая заполнит массив случайными двузначными числами,выведет его на экран а затем элементы с четными индексами увеличит в 2 раза

Answer 1

program fantscrin;

 const n = 15;

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

     i:integer;

Begin

 for i:=1 to n do

   a[i]:= random(100)+10;

 for i:=1 to n do

   write(a[i], '  ');

   

 writeln('');

 for i:=1 to n do

   if (i mod 2 = 0) then a[i]:=a[i]*2;

   

 for i:=1 to n do

   write(a[i], '  ');

End.