Rambler's Top100

Скачать программы    Все программы автора

Задание № 34

В данной действительной матрице размера N x M (N и M заданы) поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с наименьшим значением. Предполагается, что эти элементы единственные.

 

PROGRAM Prog;

CONST N=10; M=10;

VAR

X:ARRAY[l..N, l..M] OF REAL;

M,N,I,J,K,L: INTEGER;

MIN,MAX,P:REAL;

BEGIN

WRITE('N и M =>' ) ; READLN(N, M) ;

WRITELN (' ВВОД МАТРИЦЫ: ' ) ;

FOR I:-1 TO N DO

FOR J:=1 TO M DO

READ(X[I,J]) ;

MIN:=X[1,1];

MAX:=X[l,l];

FOR I:=1 TO N DO

FOR J:=1 TO M DO

BEGIN

IF X[I,J]<=MIN THEN

BEGIN

MIN:=X[I,J];

K:=I;

END

ELSE BEGIN

IF X[I,J]>=MAX THEN

BEGIN

MAX:=X[I,J];

L:=I;

END;

END;

END;

IF K<>L THEN

BEGIN

FOR J:=1 TO M DO

BEGIN

P:=X[K,J];

X[K,J]:=X[L,J];

X[L,J]:=P;

END;

END;

WRITELN (' ВЫВОД МАТРИЦЫ: ' ) ;

FOR I:=1 TO N DO BEGIN

FOR J:=1 TO M DO

WRITE(X[I,JJ:5);

WRITELN;

END

END.

Вверх

Белорусский рейтинг MyMinsk.com Сайты беларуси Регистр "ЗУБР" Каталог на TIGA.BY, а также  новости, работа, объявления, фото и многое другое Rambler's Top100 Белорусский каталог программ Faststart - рейтинг сайтов, каталог интернет ресурсов, счетчик посещаемос­ти Яндекс.Метрика
Hosted by uCoz