Нашел код на паскале но мне надо его на питоне, напишите или объясните как делать??? const n = 7;
Var a:array[1..n,1..n] of integer; i,j,ts,smax,nmax:integer;
Begin
Randomize;
smax:=0;
For i:=1 to n do
Begin
For j:=1 to n do
a[i,j]:=random(100)-50;
End;

For i:=1 to n do
Begin
For j:=1 to n do
begin
write( a[i,j], ' ');
end;
writeln;
End;
smax := -1000;
nmax:=0;
For i:=1 to n do
Begin
ts:=0;
For j:=1 to n do
begin
ts := ts + a[i,j];
end;
if smax < ts then
begin
smax := ts;
nmax := i;
end;
End;
Writeln('max stroka: ',nmax,' summa:',smax); End.

Tusya007 Tusya007    3   09.12.2020 12:02    1

Другие вопросы по теме Информатика