Найти min из значений элементов столбца, который обладает наибольшей суммой модулей элементов

@Алена_ПИЭ · Регистрация: 17.01.2013

Author24 — интернет-сервис помощи студентам

Нужна схема и программа.
Дана целочисленная матрица А[8,8].Найти min из значений элементов столбца, который обладает наибольшей суммой модулей элементов

@Alisto · 06.12.2013, 18:58

Пожалуйста помогите с решением этой задачи, схема не обязательна. Устроит код.

@GreenForest · 06.12.2013, 22:17

Pascal

begin
{Ввод массива}
For j:= 1 to 8 do
    For i:=1 to 8 do
        b[j]:=abs(a[i,j])+b[j];
For j:= 1 to 8 do
c[j]:=b[j];
For j:= 1 to 8 do
If b[j] > b[j+1] then
b[j]:=max;
b[j]:=b[j+1];
b[j+1]:=max;
Repeat
For j:= 1 to 8 do
If max = c[j] then d:=j;
until j>0
For i:= 1 to 8 do
If a[i,d]< a[i+1,d] then
min:=a[i,d];
a[i,d]:=a[i+1,d];
a[i+1,d]:=min;
Writeln(min);
End.

Вам осталось только объявить переменные и ввести массив.

@Fakeoke · 06.12.2013, 23:25

вот правильная программа...
а вас,GreenForest , прошу воздержаться от написания программ...
ибо я ничерта в них не пойму.. или я совсем дурак?

Pascal

uses crt;
const n=8;
var a:array [1..n,1..n] of integer;
i,j,min,s,sm,sj:integer;
begin
clrscr;
randomize;
writeln('Matrica:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
sm:=-maxint;
for j:=1 to n do
begin
s:=0;
for i:=1 to n do
s:=s+abs(a[i,j]);
if s>=sm then begin sm:=s; sj:=j; end;
writeln('Summa ',j,' stolbca = ',s);
end;
writeln('Max summa v ',sj,' stolbce i ravna = ',sm);
min:=maxint;
for i:=1 to n do
if a[i,sj]<min then min:=a[i,sj];
writeln('Minimalniy element v ',sj,' stolbce = ',min);
readkey;
end.

@GreenForest · 07.12.2013, 00:11

Fakeoke, вот... Вывод конечно не такой, как у вас, но работает же...

@Fakeoke · 07.12.2013, 00:33

вы вообще что-то другое включили...
ибо у вас в программе нет вывода ни сумм ни строки min = ...

@GreenForest · 07.12.2013, 10:38

может потому что, что бы не считать вручную максимальные. Просто лишнюю строчку написать.

@Алена_ПИЭ 0 / 0 / 0 Регистрация: 17.01.2013 Сообщений: 19
		1
	Найти min из значений элементов столбца, который обладает наибольшей суммой модулей элементов 17.01.2013, 19:24. Показов 1076. Ответов 6 Метки нет (Все метки) Нужна схема и программа. Дана целочисленная матрица А[8,8].Найти min из значений элементов столбца, который обладает наибольшей суммой модулей элементов 0

@Alisto 0 / 0 / 0 Регистрация: 06.12.2013 Сообщений: 8
	06.12.2013, 18:58	2
	Пожалуйста помогите с решением этой задачи, схема не обязательна. Устроит код. 0

@GreenForest 50 / 42 / 25 Регистрация: 05.12.2013 Сообщений: 275
	07.12.2013, 00:11	5
	Fakeoke, вот... Вывод конечно не такой, как у вас, но работает же... Миниатюры 0

@Fakeoke 522 / 398 / 213 Регистрация: 28.07.2011 Сообщений: 2,212
	07.12.2013, 00:33	6
	вы вообще что-то другое включили... ибо у вас в программе нет вывода ни сумм ни строки min = ... 0

@GreenForest 50 / 42 / 25 Регистрация: 05.12.2013 Сообщений: 275
	07.12.2013, 10:38	7
	может потому что, что бы не считать вручную максимальные. Просто лишнюю строчку написать. 0