Информатика. Найти и вывести минимальное значение среди положительных элементов массива, имеющих чётное значение. Если в исходном массиве нет элемента, значение которого чётно и положительно, то вывести сообщение ненайдено.
program cool;
uses crt;
var mas: array[1..10] of integer;
i, min: Integer;
begin
clrscr;
writeln('Введите 10 элементов массива: ');
for i:=1 to 10 do
readln(mas[i]);
min:=-1;
for i:=1 to 10 do
if (mas[i]>0) and (mas[i] mod 2 = 0) then
if (min <> -1) then
begin
if (mas[i]
else min:=mas[i];
if (min <> -1) then writeln(min)
else writeln('Не найдено! ');
end.
ну и в чем проблемы? пиши на почту
⇢