двухмерные массивы

[sim-sim]

пожалуйста помогите написать программу обработки двухмерных массивов (нахождение максимального элемента ,минимального ,суммы,произведения)

 

[DENNIS]

Ну примерно так
смотри:
int mas[s1][s2];
int max=mas[0][0];
for(int i=0;i<s1;i++)
{
int now_max=mas[0];
for(int j=0;j<s2;j++)
{
if(now_max<mas[j])
now_max=mas[j];
}
if(now_max>max)
max=now_max;
}
max - будет самое большим со всего массива
now_max -самое большое в строке mas[];
минимального аналогично, только знаки поменяй;
Сумма :
int sum=0;
for(int i=0;i<s1;i++)
{
for(int j=0;j<s2;j++)
sum+=mas[j];
}
вот и всё!!
если у тебя несколько массивов можеш найтив первом, например максимальное, затем
во втором, после чего сравнить результат, и т.д.

 

[Treloha]

никак не могу разобратся с матрицами. необходимо написать программу:"В каждом столбце матрицы D(8,10) вместо максимального элемента записать 1."ПОМОГИТЕ, что-то крутится в голове, а докрутится никак не может.

 

[BoT]

Насколько я понимаю, матрица=массив.
делается так:

temp=0
for i1=1 to 8
for i2=1 to 10
if D(i1,i2)>temp then
temp=D(i1,i2)
x=i1
y=i2
endif
next
next

d(x,y)=1

ВсЁ! как работает:
шарим массив по линии 1 (i1) на все 10 значений
если какое-либо значение стало выше прежней максималки, заносим это значение в память (для дальнейшего сравнения) и запоминаем координаты (х и у) точки матрицы, где нашли новый максимум
Затем, когда просканим все 8 линий массива (представь, что это сетка из 8-ми линий по горизонтали и 10 по вертикали, а точки пересечения содержат значения матрицы) на все 10 вглубь и нашли абсолютный максимум, открываем массив в х и у и присваиваем этой точке еденицу.

Вуаля!

 

[Le}{a]

покупай журнал Хакер, там на каждом диске выкладывают описание, исходники примеры по массивам, графам, и всякой нужной хрени

 

[Treloha]

спасибо всем вам огромное.
Le}{a
тебе тоже спасибо. посмотрю что за журнальчик

 

[Treloha]

BoT
поправочка. надо максимальный элемент найти в каждом столбце.

 

[katarina]

помогите пожалуйста решить задачу: найти сумму всех элементов двухмерного массова А больших значений числа R

 

[katarina]

помогите пожалуйста решить задачу: найти сумму всех элементов двухмерного массива А больших значений числа R
буду вам очень признательна

 

[AlexZir]

BoT
небольшая поправка:

В каждом столбце матрицы D(8,10) вместо максимального элемента записать 1

поэтому:
temp=0
for i1=1 to 8
for i2=1 to 10
if D(i1,i2)>temp then
temp=D(i1,i2)
x=i1
y=i2
endif
next
d(x,y)=1
next
то есть находим максимальный элемент в каждом столбце, заменяем его на 1.

 

[Vaniha]

Помогите, пожалуйста решить задачу. Дан двухмерный массив целых чисел. Определить минимальный номер строки, состоящей только из элементов, кратных числу а. Принять, что такие строки в массиве есть. ПОМОГИТЕ, ПОЖАЛУЙСТА.

 

[sleeper]

а в чём собственно проблема то ?

 

[Freeee]

Помогите, пожалуйста. Мне надо написать три программки на Turbo Pascal.
1) Вставить перед всеми столбцами, в которых есть 0, первый столбец.
2) Определить, есть ли в данном двумерном массиве отрицательный элемент.
3) Найти строку с наибольшей суммой элементов. Вывести на печать найденную строку и суммы их элементов.

 

[TOMMY]

Несколько способов по второй задаче

{var
 m, n:byte; {size of mas}{
 mas:array[1..100,1..100]of integer;
 i, j:byte;
 res:boolean;
begin
read(m, n);
for i:=1 to m do begin
    for j:=1 to n do begin
        read(mas[i, j]);
    end;
end;

for i:=1 to m do begin
    for j:=1 to m do begin
        if mas[i, j]<0 then begin res:=true; break; end;
    end;
end;

writeln(res);

end.}

{SECOND}

var
 m, n:byte; {size of mas}
 i, c:integer;
 res:boolean;
begin
read(m, n);
res:=false;
for i:=1 to m*n do begin
    read(c);
    if c<0 then res:=true;
end;
 writeln(res);
end.

 

[TOMMY]

Третья

var
 m, n, max:byte;
 mas:array[1..100,1..100]of integer;
 i, j:byte;
 sum, maxs:longint;
begin
read(m, n);

for i:=1 to m do begin
    for j:=1 to n do begin
        reaD(mas[i, j]);
    end;
end;

maxs:=0;
for i:=1 to m do begin
sum:=0;
    for j:=1 to n do begin
        sum:=sum+mas[i, j];
    end;
if sum>maxs then begin max:=i; maxs:=sum; end;
end;
writeln;
for j:=1 to n do begin
    write(mas[max, j],' ');
end;
write('sum=',maxs);
end.

 

[Freeee]

Помоги, пожалуйста, решить самую первую задачу: со вставкой первой строки...

 

[imported_sol]

Проблема со звуком.

Доброго времени суток.
У меня возникла следующая проблема: не могу поставить дрова на звуковую плату. В процессе выполнения установки, комп принудительно перегружается, перед этим появляется сообщение о нахождении стандартного игрового порта, и всё, после этого глубокий ребут. До этого у меня работал интегрированный звук, потом с ним возникли проблемы, отключил его из биоса и поставил плату. Всё работало до недавнего момента, но после перестановки винды дрова ставиться не хотят. В диспетчере после перезагрузки видно, что для устройства не стоят драйвера, при попытке переустановить их, повторяется история с перезагрузкой. Вот, вроде всё объяснил... Помогите разобраться, пожалуйста.

 

[koschej237]

А что он пишет в "Синеньком"?

 

[Denesis]

Если можете перепешите Hardware ID's устройства. Какую операционную систему Вы установили сейчас? Чем она оличается от предыдущей?

Added 12.19.2008 13:12:46:
В Диспетчере устройств в свойствах звуковой карты нажмите "Свойства" - "Дополнительно" (предпоследняя вкладка), и там выберите HARDWARE ID's и скопируйте. Найдем Вам новые драйвера.

 

[koschej237]

Denesis
Если можете перепешите Hardware ID's устройства

Подскажи где это можно посмотреть стандартными инструментами