1

Тема: Дано двовимірний масив А[1..n,1..m], дійсних чисел. Визначити:

4) Номер рядка, сума елементів якого є найменшою;

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

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

2

Re: Дано двовимірний масив А[1..n,1..m], дійсних чисел. Визначити:

7) Мої спроби розв'язання

Подякували: koala, leofun012

3 Востаннє редагувалося Torbins (07.12.2015 17:43:02)

Re: Дано двовимірний масив А[1..n,1..m], дійсних чисел. Визначити:

Ось задача номер 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.

4

Re: Дано двовимірний масив А[1..n,1..m], дійсних чисел. Визначити:

Vladys95

Тобі мало відповідей у Клубі Програмістів?

5 Востаннє редагувалося Vladys95 (07.12.2015 17:23:38)

Re: Дано двовимірний масив А[1..n,1..m], дійсних чисел. Визначити:

Поможете или нет?

6

Re: Дано двовимірний масив А[1..n,1..m], дійсних чисел. Визначити:

Vladys95
Українською, будь ласка.
Що стосується п'ятої задачі, то якщо x має бути весь час тим, яке ввів користувач, тоді не треба його оновлювати. А замість цього там виводити повідомлення, що поточний рядок відповідає умові.

7

Re: Дано двовимірний масив А[1..n,1..m], дійсних чисел. Визначити:

Напишіть будь ласка частину прграми: після знаходження суми всіх рядків відсортувати їх суму за зроснанням.

8

Re: Дано двовимірний масив А[1..n,1..m], дійсних чисел. Визначити:

Створіть масив сум по кількості рядків. Сортування масиву ось тут: https://uk.wikibooks.org/wiki/Pascal/%D … 0%B2%D0%B8
Чи я вас неправильно зрозумів? Тоді чіткіше формулюйте завдання, будь ласка.

9

Re: Дано двовимірний масив А[1..n,1..m], дійсних чисел. Визначити:

Itari написав:

Vladys95

Тобі мало відповідей у Клубі Програмістів?

:D  :D