2. дана блок-схема алгоритма. определить результат выполнения алгоритма при определенных значениях исходных данных. 1.а=3, b=3, с-7 2.а2, в4, с-1 3.а7, b5, c9 по блок схеме
Var mas_in, mas_out : array [1..100,1..100] of integer; n,m,i,j: integer; begin write('введите количество строк n='); readln(n); write('введите количество столбцов m='); readln(m); for i: =1 to n do for j: =1 to m do mas_in[i,j]: =random(99); //mas_in[i,j]: =i*(j+i); writeln('исходная матрица'); for i: =1 to n do begin for j: =1 to m do write(mas_in[i,j]: 2,' '); writeln; end; for i: =1 to n do begin for j: =1 to m do mas_out[i,j]: =mas_in[i,m-j+1]; end; writeln('конечная матрица'); for i: =1 to n do begin for j: =1 to m do write(mas_out[i,j]: 2,' '); writeln; end; end.
sergeylive
09.12.2022
Var mas : array [1..100,1..100] of integer; n,m,i,j,summa: integer; begin write('введите количество строк n='); readln(n); write('введите количество столбцов m='); readln(m); for i: =1 to n do for j: =1 to m do mas[i,j]: =random(99); writeln('исходная матрица'); for i: =1 to n do begin for j: =1 to m do write(mas[i,j]: 2,' '); writeln; end; summa: =0; for i: =1 to n do for j: =1 to m do summa: =summa+mas[i,j]; write('сумма=', summa); end.