Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > 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,334
Репутация: 5274
По умолчанию

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

Код:

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


05:49.


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

RusProfile.ru


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