Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.
Внимание! Некоторое время письма не доходят до аккаунтов MAIL RU GROUP, не доходят на все почтовые ящики mail.ru, inbox.ru, bk.ru. Пишите им жалобы, чтобы быстрее восстановили получение писем, регистрируйтесь через яндекс почту и gmail, туда письма с активизацией доходят.

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

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

Ответ
 
Опции темы
Старый 15.10.2008, 23:08   #1
Alexander89
Новичок
 
Регистрация: 13.10.2008
Сообщений: 2
Репутация: 10
По умолчанию Найти все числа из массива B(n), встречающиеся более чем в одной строке матрицы A(m,n).

Помогите решить плиз задачку!

Найти все числа из массива B(n), встречающиеся более чем в одной строке матрицы A(m,n).
Alexander89 вне форума   Ответить с цитированием
Старый 15.10.2008, 23:26   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,615
Репутация: 5352
По умолчанию

по попростому (без особой оптимизации) можно так:

Код:

for i:=1 to n do {проходим по всем элементам B}
begin
   cnt := 0; {счётчик}
   for j:=1 to m do {цикл по строкам матрицы A}
   begin
      for k:=1 to n do {цикл по элементам одной строки A }
       if  A[j,k] = B[i] then begin Inc(cnt); break end;
   end;
   if cnt>1 then WriteLn(i:1,'-й элемент массива B равен ', B[i]:1,' и встречается в ',cnt:1,' строкам матрицы A');
end;

Serge_Bliznykov вне форума   Ответить с цитированием
Старый 16.10.2008, 12:41   #3
Alexander89
Новичок
 
Регистрация: 13.10.2008
Сообщений: 2
Репутация: 10
По умолчанию

пасипки бошое
Alexander89 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти все целые числа,у которых ровно 6 делителей; jenja Общие вопросы C/C++ 3 03.10.2008 20:32
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа Woland-itn Паскаль 3 23.03.2008 22:49
найти минимальный элемент в каждой строке матрицы и записать все минимальные элементы в отдельный массив W_P Помощь студентам 6 28.12.2007 01:24
Удалить из массива(одномерного) все повторяющиеся числа(Delphi) Махор Помощь студентам 4 30.11.2007 00:25


00:23.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru