Прямоугольная область на экране монитора, которую занимает работающая программа, называется окно программы
То же самое, что и в предыдущих блоках было, выполнить 1 раз в отношении переменной D.
Алгоритм:
1) Максимальное =A
2) Если B>максимального, то максимальное=B
3) Если C>максимального, то максимальное=C
4) Если D>максимального, то максимальное=D
Const n=10;
<span>var i,j,k,mx,ind: integer;
</span><span> a: array[1..n] of integer;
</span><span>begin
</span><span> writeln('исходный массив:');
</span><span> randomize;
</span><span> mx:=0;
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(2*n)-n;
</span><span> write(a[i],' ');
</span><span> if a[i]>mx then
</span><span> begin
</span><span> mx:=a[i];
</span><span> ind:=i;
</span><span> end;
</span><span> end;
</span><span> writeln;
</span><span> for i:=ind+1 to n-1 do
</span><span> for j:=i+1 to n do
</span><span> if a[i]>a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
</span><span> writeln('новый массив:');
</span><span> for i:=1 to n do write(a[i],' ');
</span><span>end.
</span>исходный массив:
<span>3 7 7 5 5 -2 -8 -9 -8 6
</span><span>новый массив:
</span><span>3 7 -9 -8 -8 -2 5 5 6 7
</span><span>
</span>
Var x,y:real;
begin
readln(x,y);
if (y<x)and(x*y<0)
then writeln('Yes') else writeln('No');
end.
Пример:
1 -2
Yes