Вычислите: ccxli + cxxxvi результат запишите в римской системе счисления
206
335
Ответы на вопрос:
Const nx=30; mx=30; var r: array[1..nx,1..mx] of integer; b: array[1..mx] of integer; i,j,n,m,k,sum,min: integer; begin min: =40; randomize; write('введите n,m: '); readln(n,m); writeln('исходная матрица: '); for j: =1 to m do begin for i: =1 to n do begin r[i,j]: =random(20)-10; sum: = sum + r[i,j]; end; b[j]: =sum; sum: =0; end; for i: =1 to n do begin for j: =1 to m do begin write(r[i,j]: 4); end; writeln; end; writeln; for j: =1 to m do begin write(b[j]: 4); if min > b[j] then begin min: = b[j]; k: = j; end; end; writeln; writeln; for i: =1 to n do begin for j: =1 to m do begin if j=k then write(r[i,j]: 4); end; writeln; end; end.
Популярно: Информатика
-
Анна2004128821.12.2020 12:14
-
Direx133716.02.2020 03:25
-
ichinichi18.05.2022 20:31
-
yulya15822.08.2022 14:38
-
Yourstudentbook07.03.2021 09:19
-
Лопамрлш01.05.2021 16:55
-
katalinatraist31.05.2020 19:01
-
grusnikot21.09.2020 12:20
-
sodzirovna01.02.2021 05:28
-
oleg0402126.07.2021 03:12