<em /><em>VAR</em>
<span><em> mx, ind: Integer;</em></span>
<span><em> n, m, i, j: Integer;</em></span>
<em>
b: Array of Integer;</em>
<em>
a: Array of Array of Integer;</em>
<em>BEGIN</em>
<em>
Read(n); SetLength(a, n+1); </em>
<em> For i := 1 to n do SetLength(a[i], n+1);</em>
<em></em>
<em>
For i := 1 to n do</em>
<em> For j := 1 to n do Read(a[i][j]);</em>
<em></em>
<em> SetLength(b, n+1);</em>
<em> For i := 1 to n do b[i] := a[i][i];</em>
<em></em>
<em> mx := b[1]; ind := 1;</em>
<em> For i := 2 to n do </em>
<em> If (mx < b[i]) then begin </em>
<em> mx := b[i]; ind := i; End;</em>
<em></em>
<em> Write('Макс. элемент гл. диагонали - B[',ind,'] = ', mx);</em>
<em>END.</em>
<em></em>
Или намного проще (если нужен только ответ):
<em>VAR</em>
<em> mx, ind, el: Integer;</em>
<em> n, m, i, j: Integer;</em>
<em>BEGIN</em>
<em> Read(n);</em>
<em></em>
<em> // Присваем макс. элементу самое минимальное число,</em>
<em> // которое точно не встретится в массиве</em>
<em> mx := -999999999;</em>
<em></em>
<em> For i := 1 to n do</em>
<span><em> For j := 1 to n do begin </em></span>
<span><em> Read(el);</em></span>
<span><em> If (i <> j) then Continue;</em></span>
<span><em> If (mx < el) then begin </em></span>
<span><em> mx := el; ind := i; End; End;</em></span>
<em></em>
<span><em> Write('Макс. элемент гл. диагонали - B[',ind,'] = ', mx);</em></span>
<em>END.</em>
Var S,A:integer;
Begin
S:=0;
For A:= 10 to 99 do
S:=S+A;
WriteLn('S = ',S)
End.
Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.
Ответ:
def reverse(arg):
return arg[::-1]
def main():
number = input()
try:
assert len(number) == 5
except AssertionError:
print('Wrong input!')
else:
print(reverse(number))
if __name__ == '__main__':
main()
Объяснение:
Для вашего удобства ниже приложен скриншот кода. Сайт напрочь ломает табуляции
Поставить первую букву п,третью л,четвёртую к