преобразовать с Паскаля на питон, заранее program Matrix66;
type
matrix = array [1..10,1..10] of integer;
var
a:matrix;
Column, M, N, i, j:Integer;
procedure DelMatrixColumn(var mat:matrix; X:Integer);
var
i:integer;
begin
if x>0 then
begin
N:=N-1;
for j:=X to N do
for i:=1 to M do
mat[i,j]:=mat[i,j+1];
end;
end;
begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);
for i:=1 to M do
begin
writeln(i,': ');
for j:=1 to N do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;
Column:=0;
for j:=1 to N do
begin
i:=1;
while ((i<=M) and (a[i,j]<0)) do inc(i);
if i=M+1 then Column:=j;
end;
DelMatrixColumn(a,Column);
for i:=1 to M do
begin
for j:=1 to N do
begin
Write(' : ',a[i,j]);
end;
writeln(' : ');
end;
end.
129
380
Ответы на вопрос:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
MASCAM20.04.2021 23:52
-
Karina115527.06.2020 14:32
-
кек94611.02.2022 19:47
-
dudych204530.11.2021 14:38
-
симона7103.11.2021 04:35
-
PrOFy10016.10.2022 07:55
-
kolobok200031.03.2021 04:09
-
batkia22828.07.2022 14:00
-
mayoll31.01.2020 13:05
-
maximkanariks01.02.2021 00:27
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.