Запись оставлена Evgeniy 17.02.2017 в 19:54 (изменение записи, оставленной OCTAGRAM | показать различия)
запустить | скачать | различия | новая запись
- PROGRAM GG;
- CONST F=5;L=8;
- VAR A:ARRAY[1..F,1..L] OF INTEGER;
- I,J,MIN,MAX,M,N,P,K:INTEGER;
- BEGIN
- MAX:=10;
- MIN:=-10;
- RANDOMIZE;
- FOR I:=1 TO F DO BEGIN
- WRITELN;
- FOR J:=1 TO L DO BEGIN
- A[I,J]:=RANDOM(21)-10;
- WRITE(A[I,J]);
- IF A[I,J]>MAX THEN BEGIN
- MAX:=A[I,J];
- M:=I;
- N:=J;
- END;
- IF A[I,J]<MIN THEN BEGIN
- MIN:=A[I,J];
- P:=I;
- K:=J;
- END;
- END;
- END;
- WRITELN;
- WRITELN('MIN=',MIN,'[',P,',',K,']');
- WRITELN('MAX=',MAX,'[',M,',',N,']');
- END.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.