// PascalABC.NET 3.0, сборка 1073 const nn=30; mm=30; var a:array[1..mm,1..nn] of integer; m,n,i,j,imax,jmax:integer; begin Writeln('Введите число строк и столбцов массива: '); Read(m,n); Randomize; Writeln('*** Исходный массив ***'); imax:=1; jmax:=1; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4); if a[i,j]>a[imax,jmax] then begin imax:=i; jmax:=j end end; Writeln end; for i:=1 to m do a[i,jmax]:=0; for j:=1 to n do a[imax,j]:=0; Writeln('*** Результирующий массив ***'); for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:4); Writeln end end.
1) a = 12;
2) a= 16;
3) i = 6;
4) c = 6;
5) a = 22;
6) a = 15;
7) a = 3;
8) 5=Z(3) ;
9) a = 8;
10) a = 14;
11) a = 12;
12) Z(a)=(b) ;
13) i = 3;
Объяснение:
1) Программа не войдет в цикл т.к. i = 3 => значение а не изменится.
2) a = 4; a + a = 8; a + a = 16
3) Цикл выполнится 4 раза в том случае, если значение i будет на 3 больше, чем в условии, т.к. установлено >= и за цикл из i вычитается 1.
4) a = 20; b = 3; b = 20/3 (без остатка) = 6; с = 20/7 (только остаток) = 6.
5) a = 10; т.к. a<15, то a = a + 12 = 10 + 12 = 22;
6) a = 10; т.к. a > 5, то a = a -7 = 10 - 7 = 3; т.к. a < 5, то a = a + 12 = 3 + 12 = 15.
7) a = 10; т.к. a > 5, то a = a - 7 = 10 - 7 = 3.
8) 5=Z(3)
9) a = 10; a = 10 - 1 = 9; a = 9 - 1 = 8
10) a = 12; т.к. i = 2, что меньше чем 3, то цикл сработает 1 раз (т.к. внутри его i увеличится на 1) => a = a + i = 12 + 2 = 14.
11) a = 10; т.к. a > 5, то a =12. ( не знаю, нужна ли там ; после then, но в любом случае ответ будет такой)
12) Z(a)=(b)
13) Цикл выполнится 2 раза в том случае, если значение i будет на 1 больше, чем в условии, т.к. установлено >= и за цикл из i вычитается 1.