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

1) program zz1;

const n = 10; / / задаем количество чисел в массиве

var i, min, k:integer; / / задаем переменные целого типа

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

begin

for i:=1 to n do / / организуем цикл, в котором введем с клавиатуры n заданных чисел в массив

read (m[i]);

min:=1000000; / /задаем начальное значение для минимального элемента

for i:=1 to n do / / организуем цикл, в котором переберем все числа массива

if (m[i] < min) and (m[i] mod 2 = 0) then begin min:=m[i]; k:=i; end; / /проверяем, если число из массива меньше минимального и оно четное, то записываем его в минимальное

writeln ('минимальное четное число в массиве = ', min); / / выводим ответ

write (' его индекс = ', k);

end.

2) program zz1;

const n = 5; / / задаем количество элементов в массиве

var i, s:integer; / / задаем переменные целого типа

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

begin

s:=1;

for i:=1 to n do / / получаем степень двойки и записываем в массив

begin

s:=s * 2;

m[i]:=s;

end;

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

end.