Ответы на вопрос:
Uses crt; const n=4; var b: array[1..n,1..n] of integer; i,j,pr,k,t,min: integer; begin randomize; pr: =1; for i: =1 to n do for j: =1 to n do b[i,j]: =random(100)-50; for i: =1 to n do begin for j: =1 to n do write(b[i,j]: 3); writeln; end; writeln; k: =1; t: =3; repeat for i: =k to k do for j: =1 to t do if b[i,j]> 0 then pr: =b[i,j]*pr; inc(k); t: =t-1; until k=4; writeln(pr); min: =50; for i: =1 to n do for j: =2 to 2 do if b[i,j]< min then begin min: =b[i,j]; k: =i; t: =j; end; writeln(min); writeln; b[4,3]: =b[4,3]+b[k,t]; b[k,t]: =b[4,3]-b[k,t]; b[4,3]: =b[4,3]-b[k,t]; for i: =1 to n do begin for j: =1 to n do write(b[i,j]: 3); writeln; end; writeln; end.
Популярно: Информатика
-
oriano15.10.2021 12:28
-
Vanomasssss17.07.2020 21:40
-
IdzSen09.09.2020 17:39
-
Танякваша1719.09.2020 09:57
-
dimasikmirnyy902.06.2023 00:58
-
юлия192103.06.2020 12:32
-
mprymachok21.03.2020 10:53
-
is835172Alexandr07.04.2023 04:46
-
ЛАПУЛЛЯ10.01.2022 01:30
-
toster133630.05.2020 23:56