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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.04.2017, 13:30   #1
Miriam_
 
Регистрация: 17.04.2017
Сообщений: 3
По умолчанию Дан массив m*n. Составить массив из наименьших элементов каждой строки данного массива. Найти сумму наибольшего и наименьшего элемента массива.

Всем привет...прошу помочь мне с решением задачки т.к. я не могу совладать с этими двумерными массивами.

Дан массив m*n. Составить массив из наименьших элементов каждой строки данного массива. Найти сумму наибольшего и наименьшего элемента массива.

Заранее вам спасибо....при решении задачи прошу подписать важные строки алгоритма с обьясненим
Miriam_ вне форума Ответить с цитированием
Старый 17.04.2017, 14:07   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Здесь не онлайн-решатель задач

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

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

Код:
const m=8;
      n=6;
var i,j,min,max:integer;
    p:array[1..m,1..n] of integer;
    o:array[1..m] of integer;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to m do
   begin
      o[i]:=p[i,1];
      For j:=2 to n do
         If o[i]>p[i,j] then
            o[i]:=p[i,j];
   end;
   For i:=1 to m do
      Write(o[i]:2,'  ');
   Writeln;
   min:=p[1,1];
   max:=p[1,1];
   For i:=1 to m do
      For j:=1 to n do
      begin
         If min>p[i,j] then
            min:=p[i,j];
         If max<p[i,j] then
            max:=p[i,j];
      end;
   Writeln(min+max);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан массив а(n) типа SWORD. найти сумму всех отрицательных элементов массива.помогите найти ошибку Юлия123456 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 07.09.2016 06:12
Дан массив из n элементов. Вычислить квадратный корень из любого элемента массива 3oidberg Общие вопросы C/C++ 5 07.04.2016 18:24
Дан массив из 25 элементов. Найти сумму элементов, больших последнего элемента. Olzhakesh C# (си шарп) 6 10.05.2014 17:15
1)Дан массив целых чисел. Найти сумму элементов массива, кратных А или В. logikal Помощь студентам 4 22.04.2014 20:58
Дан массив X(N).Найти среднеквадратичное всех элементов массива и заменить этим значение нулевые элементы массива. sev48fire Паскаль, Turbo Pascal, PascalABC.NET 3 21.06.2012 23:44