#include <bits/stdc++.h>
using namespace std;
int main() {
int x, y;
cin >> x;
while (true) {
cin >> y;
if (y == -1) break;
if (y >= x) {
cout << "NO" << endl;
return 0;
}
x = y;
}
cout << "YES" << endl;
return 0;
}
uses graph;
var n,i,x,y,height,width:integer;
procedure init;
var gd,gm:integer;
begin
gd:=vga;
gm:=vgahi;
initgraph (gd,gm,'');
end;
procedure error;
begin
closegraph;
writeln ('error!');
end;
begin
write ('N = ');
readln (n);
randomize;
init;
if graphresult = 0 then
begin
for i:=1 to n do
begin
setcolor (random(14)+1);
x:=random(640);
y:=random(480);
height:=random(91)+10;
width:=random(101)+20;
rectangle (x,y,x+width,y+height);
end;
end else error;
end.
Var
f:Text;
n,k:integer;
begin
Assign(f,'input.txt');
Reset(f);
n:=0;
while not Eof(f) do begin Read(f,n); Inc(k) end;
Close(f);
Assign(f,'output.txt');
Rewrite(f);
Writeln(f,k); Writeln(k);
Close(f)
end.
Ответ:
Объяснение:
Язык Паскаль.
Модель:
Среднее число пассажиров, перевозимых по Кольцевой ветке равно 850 000 человек.
ДСЧ выбрасывает число из интервала 1-100000. Если это число четное, то его вычитаем из среднего, иначе прибавляем к среднему.
Листинг:
uses Crt;
const n=850000;
m=7;
type Metro = array [1..m] of longint;
var A: Metro;
i: integer;
P, max: longint;
begin
ClrScr; Randomize; max:=0;
for i:=1 to m do
begin
P:=1+random(100000);
if (P mod 2 = 0) then P:=(-1)*P;
A[i]:=n+P;
if A[i]>max then max:=A[i];
WriteLn (' ', i, ': ',A[i]:5);
end;
WriteLn(' Max = ',max);
ReadLn;
end.
Результат работы - в прикрепленных фото.
