Дан двумерный массив действительных чисел, определить:

[Vladys95]

ой, не заметил 2 страници)) 5 и 6 не выводит ответ.

Выгледит красиво, слов нету, учителю информатики прям глаз радует, но человеку, который на 1 курсе математики и никогда до этого не учил информитику и программ в жизни не видел.....тяжка.....Нельзя ли это все сделать 1 массивом?
P.S.: не злитесь)

[Stilet]

Нельзя ли это все сделать 1 массивом?

Ну а функции вы уже изучали?

[Vladys95]

нет, а без них никак?
Вот к такому началу можно все припаять?

Begin 
  WriteLn('Введіть розміри масиву: '); 
  ReadLn(n,m); 
  WriteLn('Введіть ',n*m,' елементів масиву'); 
  For i:=1 to n do 
    For j:=1 to m do 
      Read(A[i,j]); 
  ReadLn; 
  WriteLn('Матриця:'); 
  For i:=1 to n do 
    Begin 
      For j:=1 to m do 
        Write(A[i,j]:4:0); 
      WriteLn; 
    end;

[Stilet]

Какой коварный ужос... Ладно.

4) Номер строки, сумма элементов которого является наименьшей;

for i:=1 to n do begin
 k:=0; for j:=1 to m do k:=k+a[i,j];
 if (i=1) or (k>y) then begin y:=k; c:=i;end;
end;
Write(c,' строка самая маленькая');

5) Номер строки, среднее арифметическое значение элементов которого больше заданного числа Х;

for i:=1 to n do begin
 k:=0; for j:=1 to m do k:=k+a[i,j];
 if (i=1) or ((k/m)>x) then begin x:=k/m; c:=i;end;
end;
Write(c,' строка самая большая по среднему');

6) Номер столбца, в котором все элементы делятся без остатка на число У.

for i:=1 to m do begin
 k:=0; for j:=1 to n do  if (a[i,j] mod y)=0 then inc(k);
 if k=n then writeln(j);
end;

Такое подходит?

[Vladys95]

Все супер, только объясните пожалуйста, что за у в 4 задании?

[Stilet]

Переменка, запоминающая сумму элементов. Можешь ее обозвать как sum например.

[Vladys95]

Понимаю, что достал)
Вот задача номер 5, но она выводит в ответ крупнейшую строку, а нужно просто больше заданного числа. Например: сумма 1=6, 2=76, 3=43 и заданное число 40, нужно чтобы она вывела не 2 строку, а 3! Помогите.

Program А1_5; 

Var 
   A: array [1..10,1..10] of integer; 
   j, i, n, m, k, c: integer; 
   x: real; 

Begin 
  WriteLn('Введіть розміри масиву: '); 
  ReadLn(n,m); 
  WriteLn('Введіть ',n*m,' елементів масиву'); 
  For i:=1 to n do 
    For j:=1 to m do 
      Read(A[i,j]); 
  ReadLn; 
  WriteLn('Матриця:'); 
  For i:=1 to n do 
    Begin 
      For j:=1 to m do 
        Write(A[i,j]:4); 
      WriteLn; 
    end; 
  WriteLn; 
  Write('Введіть число: '); 
  ReadLn(x); 
  For i:=1 to n do 
    Begin 
      k:=0; 
      For j:=1 to m do 
        k:=k+a[i,j]; 
      If ((k/m)>x) then 
        Begin 
          x:=k/m; 
          c:=i; 
        end;
        WriteLn('Сума ',i,' ряду = ',k); 
    end; 
  Write(c,' рядок найбільший по сердньому арифметичному.'); 
end.

[Aleksandr H.]

а 76 разве не больше 40?

[Vladys95]

На 1 больше, а не вообще самое большое, но уже не нужно, на 5 закрыл, спс всем))

[Vladys95]

Может кому-то пригодится, добрый я сегодня)))

Program А1_1; 

Var 
   A: array [1..100,1..100] of real; 
   Z: array [1..100,1..100] of integer; 
   j, i, n, m, k, c, b, y, imax, jmax, imin, jmin: integer; 
   S, D, max, min, x, f, h: real; 

Begin 
  WriteLn('Введіть розміри масиву: '); 
  ReadLn(n,m); 
  WriteLn('Введіть ',n*m,' елементів масиву'); 
  For i:=1 to n do 
    For j:=1 to m do 
      Read(A[i,j]); 
  ReadLn; 
  WriteLn('Матриця:'); 
  For i:=1 to n do 
    Begin 
      For j:=1 to m do 
        Write(A[i,j]:4:0); 
      WriteLn; 
    end; 
  WriteLn('Задача №1.'); 
  Begin 
    Write('Введіть номер стовбця: '); 
    ReadLn(k); 
    S:= 0; 
    For i:=1 to n do 
      S:=S+A[i,k]; 
    WriteLn ('Сума в стовбці №',k,' = ',S:0:0); 
  end; 
  ReadLn; 
  WriteLn('Задача №2.'); 
  Begin 
    Write('Введіть номер рядка: '); 
    ReadLn(C); 
    D:=1; 
    For j:=1 to m do 
      D:=D*A[C,j]; 
    WriteLn ('Добуток в рядку №',C,' = ',D:0:0); 
  end; 
  ReadLn; 
  WriteLn('Задача №3.'); 
  Begin 
    max:=a[1,1]; 
    jmax:=1; 
    imax:=1; 
    min:=a[1,1]; 
    jmin:=1; 
    imin:=1; 
    Begin 
      For i:=1 to n do 
        For j:=1 to m do 
          If a[i,j]>max then 
            Begin 
              max:=a[i,j]; 
              imax:=i; 
              jmax:=j 
            end 
          else 
            If a[i,j]<min then 
              Begin 
                min:=a[i,j]; 
                imin:=i; 
                jmin:=j 
              end; 
    end; 
    WriteLn('Максимальний елемент А[',imax,',',jmax,']=',max:0:0); 
    WriteLn('Мінімальний елемент  А[',imin,',',jmin,']=',min:0:0); 
  end; 
  ReadLn; 
  WriteLn('Задача №4.'); 
  Begin 
    x:=350000; 
    For i:=1 to n do 
      Begin 
        f:=0; 
        For j:=1 to m do 
          f:=f+a[i,j]; 
        If (f<x) then 
          Begin 
            x:=f; 
            c:=i; 
          end; 
        WriteLn('Сума ',i,' ряду = ',f:0:0); 
      end; 
    Write(c,' рядок найменший!'); 
  end; 
  ReadLn;
  WriteLn; 
  WriteLn('Задача №5.'); 
  Begin 
    Write('Введіть число: '); 
    ReadLn(x); 
    For i:=1 to n do 
      Begin 
        h:=0; 
        For j:=1 to m do 
          h:=h+a[i,j]; 
        If ((h/m)>x) then 
          WriteLn(i,' рядок підходить, тому, що ',h/m:0:2,'  >',x:0:0) 
        else 
          WriteLn(i,' рядок не підходить, тому, що ',h/m:0:2,'  <=',x:0:0); 
      end; 
  end; 
  ReadLn;
   
  WriteLn('Задача №6.'); 
  Begin 
    WriteLn('Введіть розміри масиву: '); 
    ReadLn(n,m); 
    WriteLn('Введіть ',n*m,' елементів масиву'); 
    For i:=1 to n do 
      For j:=1 to m do 
        Read(Z[i,j]); 
    ReadLn; 
    WriteLn('Матриця:'); 
    For i:=1 to n do 
      Begin 
        For j:=1 to m do 
          Write(Z[i,j]:4); 
        WriteLn; 
      end; 
    Write('Введіть число: '); 
    ReadLn(y); 
    For i := 1 to n do 
      Begin 
        b:=0; 
        For j := 1 to m do 
          If Z[j, i] mod y = 0 then 
            b:=b+1; 
        If b = n then 
          WriteLn('Всі елементи в стовпці №',i,' ділиться без остачі на ',y); 
      end; 
  end; 
end.