Укажите в какой последовательности чередуется стили при преодолении дистанции комплексного плавания
а) 1,2,3,4
б) 4,3,2,1
в)1,3,2,4
г)4,2,3,1
172
424
Ответы на вопрос:
program prog;
var i, j, n, m_i, m_j: byte;
A: array[1..100,1..100] of Real;
maxmod: Real;
begin
randomize;
writeln('Vvedite N:');
readln(n);
{заполнение случайными числами, можно вводить вручную}
for i:=1 to n do
for j:=1 to n do
A[i,j]:=-100+random(200);
{поиск максимального по модулю элемента}
maxmod:=abs(A[1,1]);
m_i:=1;
m_j:=1;
for i:=1 to n do
for j:=1 to n do
if abs(A[i,j])>maxmod then
begin
maxmod:=abs(A[i,j]);
m_i:=i; m_j:=j;
end;
{Печать матрицы и ответа}
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do write(A[i,j]:6:1);
writeln;
end;
writeln('Максимальный по модулю элемент A[',m_i,';',m_j,'] = ', A[m_i, m_j]:6:1);
{вывод на печать уменьшенной матрицы}
for i:=1 to n do
if (i<>m_i) then
begin
for j:=1 to n do
if (j<>m_j) then write(A[i,j]:6:1);
writeln;
end;
readln;
end.
var i, j, n, m_i, m_j: byte;
A: array[1..100,1..100] of Real;
maxmod: Real;
begin
randomize;
writeln('Vvedite N:');
readln(n);
{заполнение случайными числами, можно вводить вручную}
for i:=1 to n do
for j:=1 to n do
A[i,j]:=-100+random(200);
{поиск максимального по модулю элемента}
maxmod:=abs(A[1,1]);
m_i:=1;
m_j:=1;
for i:=1 to n do
for j:=1 to n do
if abs(A[i,j])>maxmod then
begin
maxmod:=abs(A[i,j]);
m_i:=i; m_j:=j;
end;
{Печать матрицы и ответа}
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do write(A[i,j]:6:1);
writeln;
end;
writeln('Максимальный по модулю элемент A[',m_i,';',m_j,'] = ', A[m_i, m_j]:6:1);
{вывод на печать уменьшенной матрицы}
for i:=1 to n do
if (i<>m_i) then
begin
for j:=1 to n do
if (j<>m_j) then write(A[i,j]:6:1);
writeln;
end;
readln;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
shootdm10030.06.2021 00:29
-
аня291309.05.2021 10:59
-
DENISIZ8V03.07.2021 16:41
-
karolinaanime23.04.2022 01:16
-
Bonga133726.01.2020 05:38
-
krejzin19.04.2020 20:49
-
nafikovmarat53928.09.2021 16:16
-
HelpinEnglish24.02.2020 08:47
-
AntonBobko24.04.2021 23:03
-
RasDua23.03.2020 15:15
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.