IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

 
Closed Topic Открыть новую тему 
> Программа на pascal (оплата - ЯД или Webmoney), Нужно создать программу на pascal
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 4
Пол: Мужской
Реальное имя: diem

Репутация: -  0  +


Задание:

Дано квадратную матрицу порядка n с целыми элементами.
Найти наибольшее из значений элементов столбца, сумма модулей элементов которого является наименьшей.
Если таких столбцов существует несколько, то взять первый из них.

Нужна готовая, работающая программа.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


Это раздел "задачи на заказ".
Какую оплату предлагаете за решение?


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


Ну раз решение уже есть, то тема больше не нужна.
Тему закрываю.


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 15.08.2018 0:08
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"