qbasic
? "Введите число"
INPUT A
A:2=B
IF B=INT(B) THEN 1 ELSE 2
1 ? "Это число четное" : GOTO 3
2 ? "Это число не четное"
3 END
<span>0.001
</span><span>Решение должно иметь от 20 до 5000 символов</span>
Слайд,дизайн,анимацыя,вставка,вид,и так далие
I, k, m, min, max:integer;
a, b:array[1..30000] of integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
max:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
k:=1;
for i:=1 to n do
if ((a[i] mod 2)=0) then begin b[k]:=a[i]; k:=k+1; end;
max:=b[1];
for i:=1 to k do
if max>b[i] then max:=b[i];
writeln(min, ' ', max);
readln;
end.