Дан двумерный массив a размером n*n. написать программу определения номера столбца с максимальной суммой элементов. дан двумерный массив а размером n*n. в каждой строке изменить значения элементов, стоящих за минимальным элементом этой строки, на 1
Ответы на вопрос:
обе програмки проверены на авс паскале. работают : )
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.
#! /bin/bash
echo -e "[1] set some env var\n[2] write this env var\n[3] erase this env var\n[4] exit"
while true; do
read -p "what you want? " menu
case $menu in
1) read var
; ;
2) echo $var
; ;
3) unset var
; ;
4) break
; ;
*) exit 1
; ;
esac
done
exit 0
#если что-то не так как вы бы хотели работает - пишите, исправлю
Популярно: Информатика
-
crossstitchworozbh9304.09.2022 16:57
-
Киса1111111214.09.2022 02:42
-
Dydhchcy13.02.2023 18:48
-
altemirovap0cn5402.01.2020 05:39
-
kermantanja07.10.2022 16:43
-
радмирик07.01.2020 09:51
-
Бота2008131.07.2020 07:56
-
катя480201.03.2022 18:35
-
знайчушка06.10.2020 17:30
-
катюшка30908.07.2022 00:48