54

1) Дана матрица размером M*N. В каждой строке матрицы найти минимальный элемент и…

12 марта 2023

1) Дана матрица размером M*N. В каждой строке матрицы найти минимальный элемент и максимальный изнайденного.2) дана матрица размерами N*N. Поменять местами столбец с максимальным и столбец содержащий минимальное количество нулевых элементов. Использовать три процедуры (заполнение, смена, вывод).

категория: информатика



38

1) uses crt; const m=5; n=5; var a: array[1… m,1… n] of integer; b: array[1… m] of integer; i,max,min,j,k,p: integer; beginrandomize; for i: =1 to m dofor j: =1 to n doa[i,j]: =random (20); min: =20; max: =0; for i: =1 to m dobeginfor j: =1 to n dowrite (a[i,j]: 3); writeln; end; writeln; k: =1; repeatfor i: =k to k dofor j: =1 to n dobeginif (a[i,j]n; for p: =1 to m doif (b[p]>max) then max: =b[p]; writeln (max); end.2) uses crt; const n=5; var a: array[1… n,1… n] of integer; b: array[1… n] of integer; i,j,k,p,t,min,max: integer; beginrandomize; for i: =1 to n dofor j: =1 to n doa[i,j]: =random (5); for i: =1 to n dobeginfor j: =1 to n dowrite (a[i,j]: 3); writeln; end; writeln; k: =1; t: =0; repeatfor i: =1 to n dofor j: =k to k doif a[i,j]=0 then inc (t); b[k]: =t; t: =0; inc (k); until k>n; min: =5; max: =0; for p: =1 to n dobeginif (b[p]>max) then max: =p; if (b[p]0) then min: =p; end; k: =1; repeatfor i: =k to k do//for j: =1 to n dobegina[k,min]: =a[k,min]+a[k,max]; a[k,max]: =a[k,min]-a[k,max]; a[k,min]: =a[k,min]-a[k,max]; inc (k); end; until k>n; for i: =1 to n dobeginfor j: =1 to n dowrite (a[i,j]: 3); writeln; end; writeln; end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...