Матрицы, конец 1го семестра по программированию

[kazzz]

Дана действительная матрица А=(аij) n*n. Определить индексы элемента который максимален в строке и минимален в столбце. Если его нет сообщить. Матрица задана рандомно от -10 до 10. Я как бы чайник, а допуск к экзамену необходим.

[Novi4ok_11]

а язык программирования то какой?

[kazzz]

Delphi (turbo pascal)

[MyLastHit]

Я как бы чайник, а допуск к экзамену необходим.

Чайники как правило экзамен не сдают...по крайней мере в моем вузе...

[kazzz]

к экзамену есть стимул подготовиться за сутки, а тут допуск требуется получить. До самого экзамена больше 2х недель, с учетом праздников - неделя

[Hacker19_90]

for i := 1 to n do
begin
    max := a[i,1]; 
    for j := 2 to n do
    if a[i,j] > max then
    begin
         pos_rows := i;
         pos_cols := j;
         max := a[i,j];
    end;
    flag := true;
    for k := 1 to n do
    begin
        if k <> pos_rows then
            if a[k, pos_cols] < max then Flag := false;
    end;
    if flag = true then
    begin 
        writeln (a[pos_rows, pos_cols], pos_rows, pos_cols);
        break;
    end;
end;

Писал с потолка!!!
Это по задумке определение элемента!

[Novi4ok_11]

program mat1;
uses crt;
var a:array [1..10,1..10] of integer;
i,j,max,min,n:integer;
begin
clrscr;
randomize;
n:=5;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(10-(-10)+1)+(-10);
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do write(a[i,j],' ');
end;

for i:=1 to n do
begin
max:=-32000;
min:=32000;
for j:=1 to n do
begin
if (a[i,j]>max) then max:=j;
end;
writeln('Max dlya ' ,i,' stroki index=', max);

for j:=1 to n do
begin
if (a[j,i]<min) then min:=j;
end;
writeln('Min dlya ' ,i,' stolbca index=', min);
end;
readln;
end.

[Hacker19_90]

Сообщение от MyLastHit

Чайники как правило экзамен не сдают...по крайней мере в моем вузе...

Ну ну!!! Не торопись с выводами!!
Бил Гейтс и Крис Касперски вообще с "универов" ушли! И что "чайники"?

[Novi4ok_11]

Разработчика сталкера отчислели в первом семестре

[Hacker19_90]

Сообщение от Novi4ok_11

Разработчика сталкера отчислели в первом семестре

Вот ещё!!! Молодец +1