Ответы на вопрос:
обе програмки проверены на авс паскале. работают : )
program user6165_1; const n=10; var a: array[1..n,1..n] of integer; stosum: array[1..n] of integer; //массив для хранения сумм столбцов i,j,nomer,sum : integer; begin randomize; for i: =1 to n do for j: =1 to n do a[i,j]: = random(100); //заполняем массив writeln('*** alphaues is ***'); for j: =1 to n do begin sum: =0; for i: =1 to n do sum: =sum+a[i,j]; // находим сумму столбца stosum[j]: =sum; end; nomer: =1; sum: =stosum[1]; for j: =1 to n do begin if sum< stosum[j] then sum: =stosum[j]; nomer: =j; end; writeln; for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 5); //выводим массив writeln; end; writeln('*** столбец с максимальной суммой - ',nomer,'-й'); end.program user6165_2; const n=10; var a: array[1..n,1..n] of integer; stosum: array[1..n] of integer; //массив для хранения сумм столбцов i,j,nomer,min : integer; begin randomize; for i: =1 to n do for j: =1 to n do a[i,j]: = random(100); //заполняем массив writeln('*** alphaues is ***'); writeln; for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 5); //выводим массив writeln; end; for i: =1 to n do begin min: =a[i,1]; nomer: =1; for j: =1 to n do if min> a[i,j] then begin min: =a[i,j]; nomer: =j; end; if nomer< n then begin a[i,nomer+1]: =1; writeln(i,'-я строка: мин. элемент - ',nomer,'-й. следующий заменён на 1.'); end else writeln(i,'-я строка: мин. элемент - ',nomer,'-й. это последний элемент в строке.'); end; end.
Популярно: Информатика
-
NikaEvgen19.10.2020 02:56
-
Лена1761707.11.2021 21:02
-
aristovfedia10.02.2022 15:45
-
маша939304.12.2020 07:23
-
555lina55507.01.2020 04:45
-
MRSAVVA09.08.2020 22:13
-
MiKaSaKuN19.02.2020 16:39
-
хорошист54615.02.2022 13:31
-
sashasevsova29.03.2023 16:17
-
sidikreal04.10.2022 08:25