Ответ:
Думаю, что трассировка будет такой:
1 | 70 | 2 | False
1 | 70 | 3 | False
1 | 70 | 4 | False
1 | 70 | 5 | False
1 | 70 | 6 | True
6 | 40 | 7 | False
6 | 40 | 8 | False
6 | 40 | 9 | False
6 | 40 | 10 | False
Объяснение:
Если есть по рукой компьютер, то просто запустить этот фрагмент кода в редакторе. Иначе аккуратно заполнять значения строчку за строчкой в таблице трассировки.
Var A : array [1..4, 1..4] of integer ;
i,j, p,k: integer ;
Begin
randomize;
k:=1; p:=1;
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
A[i,j]:=random (100);
if A[i,j]>A[k,p] then
begin
k:=i;
p:=j;
end;
Write(A[i,j]:3);
end;
Writeln;
end;
writeln ('Максимальный элемент матрицы = ', A[k,p]);
write ('Он находится в строке №' , k);
writeln (' и в столбце №' , p);
Writeln('Меняем максимальный элемент матрицы и первый элемент первой строки:');
i:=A[k,p];
A[k,p]:=A[1,1];
A[1,1]:=i;
For i:=1 to 4 do
Begin
For j:=1 to 4 do Write(A[i,j]:3);
Writeln;
end;
end.
1)
var x,y,S:integer;
begin
x:=340;
y:=5;
x:=x div y;
y:=x mod y;
x:=x-5;
y:=y+3;
S:=x+y;
writeln(S);
end.
Ответ получился 69
2) var a, b:real;
begin
a:=3;
b:=-1;
b:=9+a*b;
a:=(b*b)/(b/a);
writeln(a);
end.
Ответ получился 18
Сорок восемь кб равно девяносто шесть тишч бит. Ето число нужно поделить на вес символа и получим кол-во символов. И получается шесть тишч символов. И соответственно делим на шестьдесять четире и сорок восемь и получаца... Блин. ничего не получаца. Тогда используй считалку, может поможет. Шанс один к четирем. Удачи.