| | | |
| 1 | | - | { Вы ведь заметили кнопку "запустить" сверху ? } |
| 1 | + | PROGRAM GG; |
| 2 | + | CONST F=5;L=8; |
| 3 | | - | program Welcome; |
| 3 | + | VAR A:ARRAY[1..F,1..L] OF INTEGER; |
| 4 | | - | uses Crt; { Это нужно из-за особенностей JS-DOS } |
| 4 | + | I,J,MIN,MAX,M,N,P,K:INTEGER; |
| 5 | + | BEGIN |
| 6 | | - | var |
| 6 | + | MAX:=10; |
| 7 | | - | Name: string; |
| 7 | + | MIN:=-10; |
| 8 | + | RANDOMIZE; |
| 9 | | - | begin |
| 9 | + | FOR I:=1 TO F DO BEGIN |
| 10 | | - | WriteLn; |
| 10 | + | WRITELN; |
| 11 | | - | WriteLn('Переключение на русский -- правый Ctrl'); |
| 11 | + | FOR J:=1 TO L DO BEGIN |
| 12 | | - | WriteLn; |
| 12 | + | A[I,J]:=RANDOM(21)-10; |
| 13 | | - | Write('Как вас зовут, путник? -- '); |
| 13 | + | WRITE(A[I,J]); |
| 14 | | - | ReadLn(Name); { Если не добавить uses Crt, из-за особенностей JS-DOS здесь зависнет } |
| 14 | + | IF A[I,J]>MAX THEN BEGIN |
| 15 | | - | WriteLn('Добро пожаловать на наш сайт, ', Name); |
| 15 | + | MAX:=A[I,J]; |
| 16 | | - | WriteLn; |
| 16 | + | M:=I; |
| 17 | | - | end. |
| 17 | + | N:=J; |
| 18 | + | END; |
| 19 | + | IF A[I,J]<MIN THEN BEGIN |
| 20 | + | MIN:=A[I,J]; |
| 21 | + | P:=I; |
| 22 | + | K:=J; |
| 23 | + | END; |
| 24 | + | END; |
| 25 | + | END; |
| 26 | + | WRITELN; |
| 27 | + | WRITELN('MIN=',MIN,'[',P,',',K,']'); |
| 28 | + | WRITELN('MAX=',MAX,'[',M,',',N,']'); |
| 29 | + | END. |