bagdasaryaneedik6390

10.07.2021 13:40 •  Информатика

Описать последовательно, что выполняет данная программа, подробно. const m=5; n=5; var r: array[1..m,1..n] of integer; i,j,c,d,k: integer; l: boolean; begin randomize; writeln('исходная матрица: '); for i: =1 to m do begin for j: =1 to n do begin r[i,j]: =random(15); write(r[i,j]: 4); end; writeln; end; write('c= '); read(c); write('d= '); read(d); writeln('строки, в которых есть число: ',c); k: =0; for i: =1 to m do begin l: =false; j: =1; while(j< =n)and not l do if r[i,j]=c then l: =true else j: =j+1; if l then begin k: =1; write(i,' '); for j: =1 to n do r[i,j]: =r[i,j]*d end; end; writeln; if k=0 then writeln('в матрице нет числа: ',c) else begin writeln('преобразованная матрица: '); for i: =1 to m do begin for j: =1 to n do write(r[i,j]: 4); writeln; end; end; end.