Исправить программу с ккампиляцией напишите var n,i,j,k,max,x,m,s: integer; a: array [1..10000,1..10000] of integer; begin randomize; read (n,m); for i: = 1 to n do begin for j: =1 to m do begin a[i,j] : = random (10)-5; write(a[i,j]: 3); end; writeln; end; max: =0; for i: =1 to n do begin s: =0; for j: =1 to m do begin s: =s+a[i,j]; end; if s> max then begin max: =s; k: =i; end; end; writeln(max,' ',k); for j: =1 to m do begin x: = a[i,j]; a[i,j]; a[i,j]: =a[k,j]; a[k,j]: =x; end; for i: =1 to n do begin s: =0; for j: =1 to m do begin s: = 0; for j: =1 to m do begin write (a[i,j]: 3); end; writeln; end; end
Ответы на вопрос:
ответ:
я конечно, не знаю что вы писали, но это какой-то писец.
var
n,i,j,k,max,x,m,s: integer;
a: array [1..10000,1..10000] of
integer;
begin
randomize;
read (n,m);
for i: = 1 to n do
begin
for j: =1 to m do
begin
a[i,j] : = random (10)-5;
write(a[i,j]: 3);
end;
writeln;
end;
max: =0;
for i: =1 to n do
begin
s: =0;
for j: =1 to m do
begin
s: =s+a[i,j];
end;
if s> max then
begin
max: =s;
k: =i;
end;
end;
writeln(max,' ',k);
for j: =1 to m do
begin
x: = a[i,j];
a[i,j]: =a[k,j];
a[k,j]: =x;
end;
for i: =1 to n do
begin
s: =0;
for j: =1 to m do
begin
s: = 0;
write (a[i,j]: 3);
writeln;
end;
end;
end.
это вроде ошибок не должно выдавать, но что оно делает я так и не понял
Эргоно́мика (от др.-греч. ἔργον — работа + νόμος — закон) — в традиционном понимании — наука о при должностных обязанностей, рабочих мест, предметов и объектов труда, а также компьютерных программ для наиболее безопасного и эффективного труда работника, исходя из физических и психических особенностей человеческого организма.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
zoonadin17.05.2022 09:13
-
Zen20115.07.2021 04:17
-
rekrut23419.11.2021 00:58
-
Mirano200411.05.2021 11:04
-
1delicious1apple16.05.2023 11:47
-
milanademidova112.10.2021 06:21
-
evstropovi163212.12.2022 22:21
-
guzhowa6604.01.2022 11:10
-
VikaCat336418.12.2021 04:14
-
kostya79bat103.07.2022 03:06
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.