Статистика
Всего в нашей базе более 4 327 046 вопросов и 6 446 022 ответов!

Помогите пожалуйста, на завтра.

5-9 класс

Найти для каждой строки матрицы сумму максимального и минимального элементов.

Igorbandura3 10 июля 2013 г., 17:21:35 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Pinki2014
10 июля 2013 г., 18:27:45 (7 лет назад)

const
  m1 = 10;
  n1 = 15;

var
  x: array[1..m1, 1..n1] of integer;
  i, j, m, n, mx, mn: integer;

begin
  Write('Введите через пробел число строк и столбцов матрицы: ');
  Readln(m, n);
  Randomize;
  Writeln(#13#10, 'Исходная матрица');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      x[i, j] := Random(100) - 50;
      Write(x[i, j]:5)
    end;
    Writeln
  end;
  for i := 1 to m do
  begin
    mx := x[i, 1]; mn := mx;
    for j := 2 to n do
      if mx < x[i, j] then mx := x[i, j]
      else if mn > x[i, j] then mn := x[i, j];
    Writeln('В строке ', i, ' мin=', mn, ', max=', mx, ', их сумма=', mn + mx)
  end
end.

Тестовое решение:

Введите через пробел число строк и столбцов матрицы: 8 12

Исходная матрица
  -50  -15  -17   28  -24   41  -37   27   -3   43  -24   44
  -26   22  -33   44  -42   -4  -45  -47   48    6  -14   12
  -49    3  -50   32   31  -10    1    3  -50   49  -28  -29
  -41   17   31   48   29    6    7   29   35  -26  -25   35
  -15   19   33    9  -20   24   29   -6   49   21   26   23
   41  -20   46  -43   -9   22   44  -25    0   46   35   -9
   15  -43  -27   -8   48    6   27   26  -23  -36   -3  -39
    7   42  -27  -25  -31   27  -29  -12   40  -42  -43   -2
В строке 1 мin=-50, max=44, их сумма=-6
В строке 2 мin=-47, max=48, их сумма=1
В строке 3 мin=-50, max=49, их сумма=-1
В строке 4 мin=-41, max=48, их сумма=7
В строке 5 мin=-20, max=49, их сумма=29
В строке 6 мin=-43, max=46, их сумма=3
В строке 7 мin=-43, max=48, их сумма=5
В строке 8 мin=-43, max=42, их сумма=-1



Ответить

Читайте также

Здравствуйте! Помогите пожалуйста, весь интернет облазила, не могу найти ответ на свой вопрос, вся надежда на этот сайт!

Задали сделать презентацию о Белке и Стрелке. Я работаю в "Презентация Microsoft PowerPoint" (в других не понимаю как, мне кажется эта наиболее удобная) и мне надо подобрать космический фон. Там, в "Дизайне" этой презентации ничего подобного нет. Я нашла в интернете подходящую картинку для фона, скачала ее на компьютер но я не знаю как ее вставить. Там есть "Шаблоны оформления на Microsoft Ofice Online", но там я ничего не поняла (написала "Космос", вышли несколько картинок, загрузила одну и теперь она неизвестно где) и есть "Шаблоны оформления: Дополнительные", там он просит найти фото. Я точно знаю куда я его загрузила. проверяю несколько раз, но он не находит. Помогите пожалуйста, 3 дня ответ не могу нигде найти!!!

Помогите, пожалуйста ! У меня Windows XP Professional Servis Pack 3 , после того как я переустановил Windows на эту же самую систему , начал вылетать

Интернет.
Вот загрузился рабочий стол, подключаю Интернет , захожу в браузер можно сделать поисковые запросы и через некоторое время тема на рабочем столе меняется на старую , помните она как бы такая белая , вся квадратная , ну вот ,а потом обратно на мою выбранную тему .При этом в сетевых подключения показывает , что Интернет подключен , локальная сеть тоже , а в браузере не могу производить поиск пишет : " Нет подключения к Интернету " После перезагрузки компьютера можно снова .
Кто знает помогите , пожалуйста !

помогите пожалуйста! никак не могу с ноутбука зайти в вконтакт, но с телефона получается.появляется (ну это у всех) введите свой e-mail (или

телефон) и пароль .я ввожу, нажимаю войти, потом появляется картинка и говорят "Введите код с картинки" (эту функцию я отключила несколько лет назад!!! ) ,ну я думаю, хорошо, я введу, подумаешь три буковки. ВОТ! После этого проблема. мне пишут " Лена, мы зафиксировали попытку взлома Вашей страницы. Не беспокойтесь, она в безопасности. Чтобы обезопасить Вашу страницу от злоумышленников и в будущем, мы просим Вас подтвердить привязку к телефону и придумать новый сложный пароль. " Ладно я ввожу свой номер телефона, чтоб мне пришел код активации. Раньше мне приходило вот это"Для активации услуги подтвердите Ваше согласие с правилами, Ответь ДА стоимость отправки смс на номер 4012 - 203.19"!!! А сейчас уже если я наберу номер ничего абсолютно не происходит. Ага! Еще чего, не буду я на них целых 200 рублей тратить! Помогите пожалуйста мне решить эту проблему
И еще кое что, когда мой брат или подруга тоже попытались зайти в ВК у них всеё было тоже самое
С телефона пароль меняла, но ничего не изменилось

Помогите,пожалуйста,написать программу по информатике.Вот такое условие:

Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.



Вы находитесь на странице вопроса "Помогите пожалуйста, на завтра.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.