Программа на Паскале прилагается.
Ответ:
var a:array[1..5]of integer;
i,m:integer;
begin
m:=0;
write('Массив: ');
for i:= 1 to 5 do
begin
a[i]:= random(21)-10;
write(a[i]:4);
if (a[i]>0) and (i mod 2 = 0) then m:=a[i]
end;
writeln;
for i:= 1 to 5 do
if (a[i]>0) and (i mod 2 = 0)and (a[i] < m) then m:=a[i];
if m=0 then writeln ('В массиве нет положительных элементов среди элементов с чётными номерами')
else writeln('Наименьший положительный элемент среди элементов с чётными номерами равен ',m)
end.
1)4. 5)1 другие незнаю прости
В первой скобке дано условие х<4. Из представленных вариантов подходят три: 1,2,3. Во второй скобке условие х>2. Из вариантов здесь подходят два: 3 и 4. Решая конъюнкцию первых двух скобок получаем 3. Ну и последняя скобка дает результат 1,3,4. Конъюнктируя этот результат с 3, получим 3. Ответ: 3.