Программа на pascal (оплата - ЯД или Webmoney), Нужно создать программу на pascal |
Начальные контакты ТОЛЬКО через личку!!
Программа на pascal (оплата - ЯД или Webmoney), Нужно создать программу на pascal |
diem |
21.10.2013 16:08
Сообщение
#1
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Реальное имя: diem Репутация: 0 |
Задание:
Дано квадратную матрицу порядка n с целыми элементами. Найти наибольшее из значений элементов столбца, сумма модулей элементов которого является наименьшей. Если таких столбцов существует несколько, то взять первый из них. Нужна готовая, работающая программа. |
APAL |
22.10.2013 16:46
Сообщение
#2
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Это раздел "задачи на заказ".
Какую оплату предлагаете за решение? -------------------- |
diem |
23.10.2013 17:28
Сообщение
#3
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Реальное имя: diem Репутация: 0 |
Решение:
Код 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 |
24.10.2013 15:36
Сообщение
#4
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Ну раз решение уже есть, то тема больше не нужна.
Тему закрываю. -------------------- |
Текстовая версия | 31.10.2024 20:30 |