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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 29.05.2012, 19:30   #1
Proskurina
Форумчанин
 
Регистрация: 27.05.2012
Сообщений: 109
По умолчанию . Даны натуральные M, N и матрица действительных чисел размером MxN. Определить числа B1,B2,...,BM, равные разностям наи

. Даны натуральные M, N и матрица действительных чисел размером
MxN. Определить числа B1,B2,...,BM, равные разностям наибольших и наименьших значений элементов строк
Proskurina вне форума Ответить с цитированием
Старый 29.05.2012, 21:05   #2
zvoronz
Пользователь
 
Регистрация: 03.01.2011
Сообщений: 49
По умолчанию

И что это? Ты хочешь что бы за тебя кто то решил?
Где вопросы о том что тебе не понятно, что понятно?
За готовыми решениями в раздел фриланс иди, а здесь помогают тем кто сам что то делает.
zvoronz вне форума Ответить с цитированием
Старый 29.05.2012, 21:25   #3
Proskurina
Форумчанин
 
Регистрация: 27.05.2012
Сообщений: 109
По умолчанию

решите пожалуйста очень надо!!!!
Proskurina вне форума Ответить с цитированием
Старый 29.05.2012, 23:59   #4
kuy
Форумчанин
 
Аватар для kuy
 
Регистрация: 05.09.2011
Сообщений: 109
По умолчанию

Если правильно задание понял, то вот:
Код:
const M=5;
      N=6;
      arr:array[1..M,1..N] of integer=
      ((4,2,6,4,5,3),
       (9,3,3,3,4,6),
       (3,2,2,2,1,3),
       (7,5,9,9,5,4),
       (9,1,1,9,1,1));
var i,j,max,min,B:integer;
begin
 writeln('Matrix:');
 for i:=1 to M do
  begin
   for j:=1 to N do
    write(' ',arr[i,j]);
   writeln;
  end;
  min:=1; max:=1;
  writeln('Result:');
  for i:=1 to M do
   begin
    for j:=1 to N do
     begin
      if arr[i,min]>arr[i,j] then min:=j;
      if arr[i,max]<arr[i,j] then max:=j;
     end;
    B:=arr[i,max]-arr[i,min];
    writeln(' B',i,' = ',arr[i,max],' - ',arr[i,min],' = ',B);
   end;
 readln;
end.
kuy вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны натуральные числа oWneDiT Общие вопросы C/C++ 2 19.07.2011 02:17
Даны натуральные числа n и m. Получить сумму m последних цифр числа n pahanzona Microsoft Office Excel 11 27.02.2011 02:17
Матрица размером MxN Markuss Помощь студентам 1 07.12.2010 17:27
Даны натуральные числа n,p, целые числа a1 , ... ,an. Наталья111 Фриланс 10 09.11.2010 20:09
Даны натуральные числа m,n. Посчитать сумму m последнего числа n. лялька Паскаль, Turbo Pascal, PascalABC.NET 6 25.12.2008 15:22