Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.04.2011, 02:09   #1
rwss gle
Заблокирован
 
Регистрация: 26.03.2011
Сообщений: 13
По умолчанию "Особые" элементы

Дана матрица n x m. Определить количество особых элементов массива, считая его элементом особым, если он больше суммы остальных элементов столбца или строки. Все особые элементы вывести на печать с указанием индексов. Среди особых элементов найти наибольший и наименьший элемент.

Из задания я не сделал: Все особые элементы вывести на печать с указанием индексов.
Вот мой код:

Код:
uses crt;
var a : array [1..10, 1..10] of integer;
    i, j, n, m, maxi, maxj, mini, minj, k, sum, p : integer;
begin
     clrscr;
     for i:=1 to n do
     for j:=1 to m do
     begin
           write ('a[',i,',',j,']=');
           readln (a[i,j]);
     end;
     clrscr;
     writeln ('Введённая матрица:');
     for i:=1 to n do
     begin for j:=1 to m do
           write (a[i,j]:4);
           writeln;
     end;
k := 0;
maxi := 1;
maxj := 2;
mini := 2;
minj := 1;
for i := 1 to n do
 for j := 1 to m do
  begin
   sum := 0;
   for p := 1 to n do
    sum := sum+a[p,j];
    if a[i,j]> (sum-a[i,j]) then
     begin
      k := k +1;
      if a[i, j]>a[maxi, maxj] then
      begin  maxi := i; maxj := j; end;
      if a[i, j] <a[mini, minj] then
      begin mini := i; minj := j; end;
     end;
  end;
writeln ('Количество особых элементов в ',j,' столбце = ',k);
writeln ('Сумма элементов в ',j,' столбце = ',sum);
writeln ('Все особые элементы с указанием индексов',?????????????) {Помогите здесь решать по этому!}
writeln ('Наибольший элемент: ', a[maxi, maxj]);
writeln ('Наименьший элемент: ', a[mini, minj]));
readln;
end.

И ещё поправите, если тут есть что-то неправильное.

Последний раз редактировалось JTG; 06.04.2011 в 10:47.
rwss gle вне форума Ответить с цитированием
Старый 06.04.2011, 10:15   #2
rwss gle
Заблокирован
 
Регистрация: 26.03.2011
Сообщений: 13
По умолчанию

Я не очень хорошо разбираюсь в паскале. Жду вашего решения
rwss gle вне форума Ответить с цитированием
Старый 06.04.2011, 11:23   #3
GetMax
Форумчанин
 
Регистрация: 21.10.2010
Сообщений: 588
По умолчанию

В качестве примера была использована матрица 3х3
Код:
var a : array [1..10, 1..10] of integer;
    b:Array[1..10] of Integer; {массив для хранения сумм столбцов}
i, j, n, m, maxi, maxj, mini, minj, k, sum, p,sum1 : integer;
begin
n:=3;
m:=3;
for i:=1 to n do
for j:=1 to m do
begin
write ('a[',i,',',j,']=');
readln (a[i,j]);
end;
writeln ('Введённая матрица:');
for i:=1 to n do
begin for j:=1 to m do
write (a[i,j]:4);
writeln;
end;
maxi := 1;
maxj := 1;
mini := 1;
minj := 1;
for i := 1 to n do
for j := 1 to m do
Begin
  Sum:=0;
  for p := 1 to n do
  sum := sum+a[p,j];
  B[j]:=Sum;
  if a[i,j]> (sum-a[i,j]) then
  begin
    Writeln('osobiy element = ',A[i,j],' stroka ',i,' stolbec ',j);
    k := k +1;
    if a[i, j]>a[maxi, maxj] then
    begin
      maxi := i;
      maxj := j;
    end;
    if a[i, j] <a[mini, minj] then
    begin
      mini := i;
      minj := j;
    end;
  end;

end;
writeln ('Naaibolshiy element: ', a[maxi, maxj]);
writeln ('Naimenshiy element: ', a[mini, minj]);
Writeln;
For i:=1 to 3 do
Writeln('Summa v ',i,' stolbce = ',B[i]);
readln
End.
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681
GetMax вне форума Ответить с цитированием
Старый 06.04.2011, 11:49   #4
rwss gle
Заблокирован
 
Регистрация: 26.03.2011
Сообщений: 13
По умолчанию

GetMax, спасибо вам большое!
rwss gle вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как обойти "преобразование типа из "string" в "float" невозможно" lexluter1988 Помощь студентам 1 07.08.2010 12:23
Браузерная онлайн игра "Элементы" kpachbiu Фриланс 13 07.07.2010 15:01
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04