Способы связи
- 
- 
- Оказываем услуги
Главные менеджеры
Менеджер Елена Картиза - помогает в оформлении заказов на сайте. Ей можно задать любые интересующие вас вопросы.
Менеджер Галина Евсютина - специалист отдела качества. Проверяет выполненные работы на соответствие всем требованиям.
Менеджер Анастасия Ветрицина - подберет специалиста, который займется выполнением вашего задания.
Справочник студента
Проконсультируем прямо сейчас
Мы онлайн в наших сообществах. ПН - ВС 08:00-22:00
Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной
От нашего клиента с логином DnNldhg на электронную почту пришел вопрос: "Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной" это здание мы отнесли к разделу ЕГЭ (школьный). Так как клиент является зарегистрированным пользователем нашего сайта, то мы бесплатно предоставим ответ.
ЕГЭ (школьный) - довольно сложный раздел, здесь действительно попадаются вопросы, которые даже у специалиста с законченным высшим образованием поставят в тупик при подготовке правильного ответа. Но мы известны тем, что сложности нас не останавливают, а наоборот развивают и расширяют наши знания.
Вы спрашивали Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной? - отвечаем:
var
a:array[1..n,1..n] of integer;
max:array[1..n] of integer;
i,j,t, index,index1:integer;
begin
randomize;for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(100);
max[1]:=a[1,1];
for i:=1 to n do begin
for j:=1 to n do
if a[i,j]> max[i] then
begin
max[i]:=a[i,j];
index:=i; index1:=j;
end;
t:=a[i,i];
a[i,i]:=max[i];
a[index,index1]:=t;
end;
for i:=1 to n do
writeln(max[i]);
for i:=1 to n do
begin for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln;
end.
