1) Найти минимальный чётный элемент в массиве и его индекс. 2) Заполнить одномерный массив степенями числа 2. Всего 10 элементов в массиве.

1.

var

a: array [1 ... 11] of integer;

i, min, imin: integer;

begin

for i:=1 to 10 do read (a[i]) ;

min:=32000; imin:=0;

for i:=1 to 10 do if (a[i] mod 2) = 0 then

if a[i]
write ('Минимальное:', min, ' Индекс:', imin) ;

end.

2.

function stepen (c, s: integer) : integer;

var

j, rez: integer;

begin

rez:=c;

for j:=1 to (s-1) do rez:=rez*c;

stepen:=rez;

end;

var

a: array [1 ... 11] of integer;

i, min, imin: integer;

begin

for i:=1 to 10 do a[i]:=stepen (2, i) ;

for i:=1 to 10 do write (a[i], ' ') ;

end.

Если возникли вопросы или ошибки в ходе работы программы, пиши в комментариях.

Const

n = 10;

var

i, imin: integer;

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

begin

imin : = 2;

for i : = 1 to n do

begin

a[i] : = random (100) - 50;

if (i mod 2 = 0) and (a[imin] > a[i]) then

imin : = i;

end;

writeln ('A[', imin, '] = ', a[imin]) ;

{вторая часть}

writeln () ;

a[1] : = 2;

for i : = 2 to n do

a[i] : = 2 * a[i - 1];

for i : = 1 to n do

write (a[i], ' ') ;

end.