Размещено 5 лет назад по предмету
Информатика
от helenaoill
Нужно поменять местами макс. и мин. значения. Что не так?
PROGRAM MATRICA;
USES CRT;
CONST N=3; M=4; A=-20; B=20;
VAR I, J, MIN, MAX, T: INTEGER;
Y:ARRAY [1..N, 1..M] OF INTEGER;
BEGIN
CLRSCR;
RANDOMIZE;
WRITELN('MATRICA Y');
MIN:=0;
MAX:=0;
T:=0;
FOR I:=1 TO N DO BEGIN
FOR J:=1 TO M DO BEGIN
Y[I,J]:=TRUNC((B-A)*RANDOM+A);
WRITE(Y[I,J]:6);
IF Y[I,J]MAX THEN MAX:=Y[I,J];
END; WRITELN; END;
WRITELN('Минимальное значение = ', MIN);
WRITELN('Максимальное значение = ', MAX);
T:=MIN;
MIN:=MAX;
MAX:=T;
FOR I:=1 TO N DO BEGIN
FOR J:=1 TO M DO BEGIN
WRITE(Y[I,J]:6);
END; WRITELN; END;
READKEY;
END.