Ответы на вопрос:
//в квадратной матрице a [n, n] определить количество строк //по убыванию суммы и вывести их номера. const n = 50; var a: array[1..n, 1.. n] of integer; b: array[1..n] of integer; m,i,j,sum, k, maxs, q: integer; beginwriteln('введите размер матрицы m'); readln(m); for i: = 1 to m dobeginfor j: = 1 to m dobegina[i,j] : = random(100)+1; write(a[i,j]: 4); sum: = sum + a[i,j]end; b[i]: = sum; sum: =0; writeln; end; writeln('сумма в строке '); for i: =1 to m dowriteln(i: 2, b[i]: 4); writeln('матрица с убывающими строками'); maxs : = -1; for i: = 1 to m dobeginfor k: = 1 to m dobeginif b[k]> maxs then beginmaxs: = b[k]; q : = k; end; end; b[q]: = 0; maxs : = -1; for j: = 1 to m dobeginwrite(a[q,j]: 4); end; writeln; end; end.
Популярно: Информатика
-
аврсчрм16.01.2023 17:05
-
565п23.01.2020 11:36
-
Avakado0116.02.2023 17:03
-
MrRobot145239016.01.2020 07:15
-
яяя48929.06.2020 00:40
-
Solyankaya26.04.2022 05:16
-
10ok19.02.2023 16:39
-
varvarec20.06.2020 22:47
-
rfhfntkm7p06pep20.10.2020 11:48
-
DimaZnanie05.11.2022 11:57