Найти минимальный элемент массива и его сумму.

@tankist93 · Регистрация: 21.03.2018

Студворк — интернет-сервис помощи студентам

Помогите написать программу в паскале: необходимо найти минимальный элемент массива и его сумму для двумерного массива целых чисел размером 5 на 5, где размер и значения массива вводятся с клавиатуры.

@Hitoku · 24.03.2018, 18:15

Стандартные операции с массивами (матрицами)
Двумерный массив. Найти сумму всех элементов.

@tankist93 · 24.03.2018, 18:27 **[ТС]**

Спасибо!
не поможете объединить это все в одну прогу, я уже лет 8 этим не занимался, сам пробывал ошибками завалило

@Hitoku · 24.03.2018, 18:42

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a: array[1..100]of integer;
    N, i, min, max, sum: integer;
begin
  randomize;
  sum := 0;
  write('N = '); readln(N);
  for i := 1 to N do begin
    a[i] := -15 + random(31);
    write(a[i], ' ');
    sum := sum + a[i];
  end;
  writeln;
  min := 1;
  for i := 2 to N do if a[i] < a[min] then min := i;
  writeln('min = A[', min, '] = ', a[min], '; Sum = ', sum);
end.

@tankist93 · 24.03.2018, 19:02 **[ТС]**

Спасибо)
Но немного не то, минимум и сумму эта программа ищет, но она для одномерного массива, а требуется для двумерного с размерами 5 строк 5 столбцов, и чтобы не рандомно выбирались числа а вводом с клавиатуры.

@Hitoku · 24.03.2018, 19:06

Это так сложно?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const n = 5;
var a: array[1..n, 1..n]of integer;
    i, j, im, jm, sum: integer;
begin
  sum := 0;
  for i := 1 to n do
    for j := 1 to n do begin
      read(a[i, j]);
      sum := sum + a[i, j];
    end;
  im := 1; jm := 1;
  for i := 1 to n do
    for j := 1 to n do
      if a[i, j] < a[im, jm] then begin im := i; jm := j; end;
  writeln('min = A[', im, ', ', jm, '] = ', a[im, jm], '; Sum = ', sum);
end.

@tankist93 · 24.03.2018, 19:18 **[ТС]**

прошу прощения скорее всего я не ясно объяснил.
В вашей программе получатся одномерный массив в одну строку 5 значений и эти значения выбираются автоматически.
мне по заданию требуется чтобы был двумерный массив(матрица) 5 строк и 5 столбцов, и данные для него необходимо чтобы я вводил вручную с помощью клавиатуры.

@Hitoku · 24.03.2018, 19:36

Сообщение от tankist93

скорее всего я не ясно объяснил

и скорее всего не смотрели код из сообщения 6

там и двумерный массив и ввод элементов с клавиатуры

@tankist93 · 24.03.2018, 19:50 **[ТС]**

Спасибо огромное!

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@tankist93 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 17

	Найти минимальный элемент массива и его сумму. 24.03.2018, 18:00. Показов 8044. Ответов 9 Метки нет (Все метки) Помогите написать программу в паскале: необходимо найти минимальный элемент массива и его сумму для двумерного массива целых чисел размером 5 на 5, где размер и значения массива вводятся с клавиатуры. 0

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	24.03.2018, 18:15
	Стандартные операции с массивами (матрицами) Двумерный массив. Найти сумму всех элементов. 1

@tankist93 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 17
	24.03.2018, 18:27 [ТС]
	Спасибо! не поможете объединить это все в одну прогу, я уже лет 8 этим не занимался, сам пробывал ошибками завалило 0

@tankist93 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 17
	24.03.2018, 19:02 [ТС]
	Спасибо) Но немного не то, минимум и сумму эта программа ищет, но она для одномерного массива, а требуется для двумерного с размерами 5 строк 5 столбцов, и чтобы не рандомно выбирались числа а вводом с клавиатуры. 0

@tankist93 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 17
	24.03.2018, 19:18 [ТС]
	прошу прощения скорее всего я не ясно объяснил. В вашей программе получатся одномерный массив в одну строку 5 значений и эти значения выбираются автоматически. мне по заданию требуется чтобы был двумерный массив(матрица) 5 строк и 5 столбцов, и данные для него необходимо чтобы я вводил вручную с помощью клавиатуры. 0

@tankist93 0 / 0 / 0 Регистрация: 21.03.2018 Сообщений: 17
	24.03.2018, 19:50 [ТС]
	Спасибо огромное! 0

Найти минимальный элемент массива и его сумму.

Решение