Поменять местами наибольший элемент главной диагонали и наименьший элемент побочной диагонали двумерного массива m размером 55, исполь- зуя один простой цикл (без вложенных).
Ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки. ура, скоро конец четверти. нужно исправить оценки.
дешифровки: Const sh = '_.,'; Var St : String; i : Integer; Function DeCode(S : String; Tabl : String; k : Integer) : String; Var j,n : Integer; Begin For j:=1 to Length(S) do Begin n:=Pos(S[j],sh); If n>0 then Begin n:=n+k; While n>Length(sh) do n:=n-Length(sh); While n<=0 do n:=n+Length(sh); S[j]:=sh[n]; end end; DeCode:=S; end; Begin St:='ЗЫФЙГФШРЦ . ШД'; Writeln(Decode(St,sh,-6)); //For i:=-10 to 10 do Writeln(Decode(St,sh,i)); end.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
дешифровки:
Const sh = '_.,';
Var
St : String;
i : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
For j:=1 to Length(S) do
Begin
n:=Pos(S[j],sh);
If n>0 then
Begin
n:=n+k;
While n>Length(sh) do n:=n-Length(sh);
While n<=0 do n:=n+Length(sh);
S[j]:=sh[n];
end
end;
DeCode:=S;
end;
Begin
St:='ЗЫФЙГФШРЦ . ШД';
Writeln(Decode(St,sh,-6));
//For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.