Двумерный массив

[Nicit]

Дана матрица А размером m*n, в каждой строке найти минимальный элемент, и если этот элемент не равен 0, то разделить на него каждый элемент строки. В противном случае строку оставить без изменения. и вывести новую матрицу на экран.

[Stilet]

const n=10,m=10;
var a:array[1..m,1..n] of integer; z,i,j:integer;
begin
 for i:=1 to m do begin
  for j:=1 to n do begin
    readln(a[i,j]);
    if (j=1)or(z>a[i,j]) then z:=a[i,j];
  end;
  if z<>0 then for j:=1 to n do a[i,j]:=a[i,j] div z;
 end; writeln;

 for i:=1 to m do begin
  for j:=1 to n do begin
    write(a[i,j]:5);
  end;writeln;
 end;
 readln;
end.

Годится?

[g25092011]

1.чему равно z изначально
2 зачем div, вроде в условии сказано делить
3 во втором if сразу цикл начинается, а массив то пустой

может я путаю что-то

третий день только в паскале...

[min@y™]

третий день только в паскале...

Крепись, дух! Дембель неизбежен!!!111

[Stilet]

1.чему равно z изначально

Первому элементу строки массива.

2 зачем div, вроде в условии сказано делить

Потому и div

3 во втором if сразу цикл начинается, а массив то пустой

Он заполнился выше.

[g25092011]

program mindel;
var
d,l,n,m,k,t:integer;
min:real;
a:array[1..100,1..100] of real;
begin
min:=0; { иницилизация }
{ ввод n и m }
writeln('Определи количество строк n=');readln(n);
writeln('Определи количество элементов в строке m=');readln(m);
{ заполняем массив n х m }
    for k:=1 to m do
      begin
        for t:=1 to n do
          begin
            write('Заполни ',t,' элемент строки',k,' = ');readln(a[t,k]);
          end;
      end;
      { Обработка }
      for k:=1 to m do
        begin
           for t:=1 to n do
            begin
            { Для начало найдем минимальный элемент строки }
             for l:=1 to n-1 do
                  begin
                  if ((a[t,k]> a[t+l,k])and(t+1<>n)) then min:=a[t+1,k]
                  else min:=a[t,k]
                  end;
                    if min<>0 then 
                        begin
                        for d:=1 to n do
                        a[d,k]:=min/a[d,k];
                        end;
            end;
        end;
        { вывод массива}    
        for k:=1 to m do
          for t:=1 to n do
          write(a[k,t],'  ');
          
end.

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

Первому элементу строки массива.

Потому и div

Он заполнился выше.

Да я ошибался, подумал и понял твой код.

Сообщение от min@y™

Крепись, дух! Дембель неизбежен!!!111

Я не служу в войсках причем тут дембель?

[Stilet]

Я не служу в войсках причем тут дембель?

А это из серии "У вас несчастные случая были? Будут!"

[g25092011]

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

А это из серии "У вас несчастные случая были? Будут!"

А что тут у Вас принято хамить ? И это делают модераторы непосредственно? Жаль, а поначалу подумалось, нормальный форум...

[Stilet]

А что тут у Вас принято хамить ? И это делают модераторы непосредственно? Жаль, а поначалу подумалось, нормальный форум...

А тебе никто и не хамил. Жаль, я поначалу подумал что нормальный форумчанин...

[g25092011]

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

А тебе никто и не хамил. Жаль, я поначалу подумал что нормальный форумчанин...

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

Прошу далее без грубостей в отношении меня! Да и шутки плоские ни к чему!

п.с "Скользкие" у Вас правил форума, особенно п 3.1. (...модератор вправе..)
"Интересно с чьего молчаливого согласия твориться сие" (с)