![]() |
Начальные контакты ТОЛЬКО через личку!!
![]() ![]() |
![]() |
diem |
![]() ![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Реальное имя: diem Репутация: ![]() ![]() ![]() |
Задание:
Дано квадратную матрицу порядка n с целыми элементами. Найти наибольшее из значений элементов столбца, сумма модулей элементов которого является наименьшей. Если таких столбцов существует несколько, то взять первый из них. Нужна готовая, работающая программа. |
APAL |
![]()
Сообщение
#2
|
![]() Смотрю... ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: ![]() ![]() ![]() |
Это раздел "задачи на заказ".
Какую оплату предлагаете за решение? -------------------- |
diem |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Реальное имя: diem Репутация: ![]() ![]() ![]() |
Решение:
Код var a:array[1..50,1..50] of integer; i,j,min,jmin,sum,n,max:integer; begin writeln('vvedite n'); readln(n); writeln('vvedite el-ty massiva'); for i:=1 to n do for j:=1 to n do begin write('a[',i,',',j,'] = ');readln(a[i,j]);end; writeln('massiv'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end; min:=0; for i:=1 to n do min:=min+abs(a[i,1]); jmin:=1; for j:=2 to n do begin sum:=0; for i:=1 to n do sum:=sum+abs(a[i,j]); if sum<min then begin min:=sum;jmin:=j;end; end; writeln('min = ',min,' v stolbze ',jmin); max:=a[1,jmin]; for i:=2 to n do if a[i,jmin]>max then max:=a[i,jmin]; writeln('max = ',max); readln; end. |
APAL |
![]()
Сообщение
#4
|
![]() Смотрю... ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: ![]() ![]() ![]() |
Ну раз решение уже есть, то тема больше не нужна.
Тему закрываю. -------------------- |
![]() ![]() |
![]() |
Текстовая версия | 21.08.2024 15:43 |