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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.05.2017, 11:41   #1
Vano_P
 
Регистрация: 23.04.2017
Сообщений: 3
По умолчанию Целочисленная прямоугольная матрица

Дана целочисленная прямоугольная матрица. Определить:
1) Количество строк, без нулевых элементов;
2) Максимальное из чисел, встречающихся в заданной матрице более одного раза.
При выполнении задания использовать динамический массив
Vano_P вне форума Ответить с цитированием
Старый 09.05.2017, 12:18   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 14.05.2017, 08:10   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
const rand=21;
var i,j,a,b,k:integer;
    p:array of array of integer;
    pr:array[0..rand-1] of integer;
    d:boolean;
begin
   Randomize;
   a:=5+Random(10);
   b:=5+Random(10);
   SetLength(p,a,b);
   For i:=0 to a-1 do
   begin
      For j:=0 to b-1 do
      begin
         p[i,j]:=Random(rand);
         Write(p[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   k:=0;
   For i:=0 to a-1 do
   begin
      d:=false;//no 0
      For j:=0 to b-1 do
         If p[i,j]=0 then
         begin
            d:=true;//est 0
            Break;
         end;
      If not d then
         k:=k+1;
   end;
   Writeln('strok = ',k);
   For i:=0 to rand-1 do
      pr[i]:=0;
   For i:=0 to a-1 do
      For j:=0 to b-1 do
         Inc(pr[p[i,j]],1);
   For i:=rand-1 downto 0 do
      If pr[i]>1 then
      begin
         Writeln('max: ',i,' - ',pr[i]);
         Break;
      end;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана целочисленная прямоугольная матрица. Nastasia_NST Помощь студентам 1 10.05.2012 21:23
целочисленная прямоугольная матрица Елена Елизарова Помощь студентам 2 15.11.2011 17:41
Дана целочисленная прямоугольная матрица. Lollipo Общие вопросы C/C++ 1 12.10.2010 10:52
дана целочисленная прямоугольная матрица Jet-Tea Общие вопросы C/C++ 9 02.06.2010 16:41
Дана целочисленная прямоугольная матрица... gregorio Помощь студентам 1 22.04.2009 20:27