Регистрация
tokio272
20.10.2020 10:30
Информатика
Есть ответ 👍

Написать программу для "pascal": дана целочисленная матрица размерности (nxm). поменять местами строки с max и min элементами.

250
466
Посмотреть ответы 2

Ответы на вопрос:

Ромашка111113
Ромашка111113
4,5(35 оценок)
Program n1; const maxm = 50;                 maxn = 50; var a: array[1..maxm,1..maxn] of integer;             min,max,i,j,n,m,x,maxi,mini: integer; begin write('введите размеры матрицы (n*m):   '); readln(n,m); writeln('введите матрицу из ',n,' строк и ',m,' столбцов: '); min: =maxint; max: =-maxint-1; for i: =1 to n do    for j: =1 to m do        begin        read(a[i,j]);     if a[i,j]> max then begin max: =a[i,j]; maxi: =i; end;     if a[i,j]< min then begin min: =a[i,j]; mini: =i; end;       end; for j: =1 to m do  begin    x: =a[maxi,j]; a[maxi,j]: =a[mini,j]; a[mini,j]: =x;   end; writeln('матрица после преобразования: '); for i: =1 to n do  begin    for j: =1 to m do      write(a[i,j],' ');     writeln;   end; end. 
Mixof
Mixof
4,7(51 оценок)

D1=B$2+$B$3

Объяснение:

значек "$" фиксирует букву столбца или цифру строки.

Популярно: Информатика