0 / 0 / 0
Регистрация: 21.01.2015
Сообщений: 42
1

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

12.02.2015, 11:18. Показов 4486. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В двумерном массиве найти сумму максимального и минимального элементов, если она меньше нуля, тогда все отрицательные элементы матрицы, лежащие выше главной диагонали, заменить на нули.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.02.2015, 11:18
Ответы с готовыми решениями:

В двумерном массиве найти индекс максимального и минимального элемента
Программа выдает ошибку: нельзя преобразовать тип real к integer. Суть программы: нужно в...

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

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

Найти сумму модулей минимального и максимального элементов массива
задать случайным образом из промежутка и (-9;9) одноименный массив А из 15 элементов. найти сумму...

2
Модератор
9919 / 5275 / 3321
Регистрация: 17.08.2012
Сообщений: 16,135
12.02.2015, 18:26 2
Лучший ответ Сообщение было отмечено podnebesie как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
const m = 8;
var i, j, max, min, s: integer;
    a: array [1..m, 1..m] of integer;
begin
  randomize;
  writeln('Source array:');
  for i := 1 to m
    do begin
      for j := 1 to m
        do begin
          a[i, j] := 99 - random(199);
          write(a[i, j]:4)
        end;
      writeln
    end;
  max := a[1, 1];
  min := max;
  for i := 1 to m
    do for j := 1 to m
      do if min > a[i, j]
        then min := a[i, j]
        else if max < a[i, j]
          then max := a[i, j];
  writeln('Min = ', min);
  writeln('Max = ', max);
  s := min + max;
  writeln('Sum = ', s);
  if s < 0
    then begin
      writeln('Result array:');
      for i := 1 to m
        do begin
          for j := 1 to m
            do begin
              if (j > i) and (a[i, j] < 0) then a[i, j] := 0;
              write(a[i, j]:4)
            end;
          writeln
        end
    end;
  write('Complete, press <Enter> to exit.'); {строку можно удалить}
  readln {строку можно удалить}
end.
1
0 / 0 / 0
Регистрация: 21.01.2015
Сообщений: 42
15.02.2015, 10:25  [ТС] 3
Спасибо, как всегда выручаете.
0
15.02.2015, 10:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.02.2015, 10:25
Помогаю со студенческими работами здесь

В двумерном массиве найти произведение элементов ниже главной диагонали и сумму элементов 2-го столбца
В двумерном массиве А из m строк и n столбцов найти произведение элементов ниже главной диагонали и...

Дан двухмерный массив,найти сумму элементов за исключением максимального и минимального элемента
Дан двухмерный массив,найти сумму элементов за искл max и min элемента. Добавлено через 16 часов...

Найти сумму максимального и минимального элемента среди элементов главной диагонали матрицы
1. В массиве размерности n*n, состоящего из целых чисел, найти сумму максимального и минимального...

Квадратная матрица. Найти сумму номеров минимального и максимального элементов её главной диагонали
Дан двумерный массив a, размером (nхn)(или квадратная матрица а). Найти сумму номеров минимального...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru