Нашел код на паскале но мне надо его на питоне, напишите или объясните как делать??? const m=5; n=6;
var a:array[1..m,1..n] of real;
i,j:integer;
s,mx,mn:real;
begin
randomize;
writeln('Массив');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=10*random;
write(a[i,j]:6:2);
end;
writeln;
end;
writeln('Средние значения в столбцах');
for j:=1 to n do
begin
s:=0;
for i:=1 to m do
s:=s+a[i,j];
s:=s/m;
writeln(j,'=',s:0:2);
end;
writeln('Максимальные и минимальные в строках');
for i:=1 to m do
begin
mx:=a[i,1];
mn:=a[i,1];
for j:=2 to n do
if a[i,j]>mx then mx:=a[i,j]
else if a[i,j] writeln(i,':','макс=',mx:6:2,' мин=',mn:6:2);
end;
end.
209
222
Ответы на вопрос:
Популярно: Информатика
-
Beaargleb19.01.2022 03:38
-
dashakomp200511.05.2020 23:14
-
Араиприпо05.01.2020 08:36
-
alesyshapiro03.01.2023 08:12
-
ПЕТУСШОГ07.03.2022 11:52
-
lidochka423.02.2021 15:55
-
romankostin200619.04.2020 21:07
-
Гиперборея18.11.2021 12:05
-
nastya03051308.03.2021 03:28
-
anarrzayev93p09qob27.03.2023 18:10