Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
1 / 1 / 0
Регистрация: 28.01.2013
Сообщений: 60
1

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

21.02.2013, 11:37. Показов 1245. Ответов 1
Метки нет (Все метки)

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

Добавлено через 16 часов 21 минуту
Help)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.02.2013, 11:37
Ответы с готовыми решениями:

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

Дан одномерный массив Е(10) элементы которого вводятся с клавиатуры. Подсчитать сумму максимального и минимального элемента в массиве Е.
Здравствуйте программисты) Меня не было всего лишь на паре тем по паскалю, и по этому не знаю...

Дан массив целых чисел. Найти В этом массиве минимальный элемент т и максимальный элемент м. Вывести сумму элементов от минимального до максимального
Дан массив целых чисел. Найти В этом массиве минимальный элемент т и максимальный элемент м....

Дан массив, найти индексы максимального и минимального элементов
Подскажите пожалуйста, что я делаю не так. Нужно вывести индексы макс. и мин. элементов. Нельзя...

1
3024 / 1910 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
21.02.2013, 11:55 2
Лучший ответ Сообщение было отмечено somethingicy как решение

Решение

Если минимальных и максимальных несколько, то так:
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
Var
  x: Array[1..10,1..10] of Integer;
  max,min,i,j,n,m,s: Integer;
BEGIN
Writeln('Введите размеры матрицы: ');
Readln(n,m);
max:=-Maxint;
min:=Maxint;
Writeln('Матрица:');
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    x[i,j]:=Random(20);
    If x[i,j]>max Then max:=x[i,j];
    If x[i,j]<min Then min:=x[i,j];
    Write(x[i,j]:4);
  end;
  Writeln;
end;
Writeln('MAX= ',max);
Writeln('MIN= ',min);
For i:=1 to n do
For j:=1 to m do
If (x[i,j]=max) or (x[i,j]=min) Then
Continue
Else
s:=s+x[i,j];
Writeln('Сумма эл-тов, за исключением MIN и MAX: ',s);
END.
иначе нужно запоминать индексы.

Добавлено через 6 минут
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
Var
  x: Array[1..10,1..10] of Integer;
  max,min,i,j,n,m,s,imax,jmax,imin,jmin: Integer;
BEGIN
Writeln('Введите размеры матрицы: ');
Readln(n,m);
max:=-Maxint;
min:=Maxint;
Writeln('Матрица:');
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    x[i,j]:=Random(10);
    If x[i,j]>max Then
    begin
      max:=x[i,j];
      imax:=i;
      jmax:=j;
    end;
    If x[i,j]<min Then
    begin
      min:=x[i,j];
      imin:=i;
      jmin:=j;
    end;
    Write(x[i,j]:4);
  end;
  Writeln;
end;
Writeln('MAX= ',max,'[',imax,';',jmax,']');
Writeln('MIN= ',min,'[',imin,';',jmin,']');
For i:=1 to n do
For j:=1 to m do
If ((i=imin) and (j=jmin)) or ((i=imax) and (j=jmax)) Then
Continue
Else
s:=s+x[i,j];
Writeln('Сумма эл-тов, за исключением MIN и MAX: ',s);
END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.02.2013, 11:55

Дан двухмерный массив. Определить: координаты минимального элемента массива.
Дан двухмерный массив. Определить: координаты минимального элемента массива. Если элементов с...

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

Дан массив целых чисел a1,...,an. Найти произведение максимального и минимального элементов
помогите...

Дан двухмерный массив,найти сумму элементов на главной диагонали
Дан двухмерный массив,найти сумму элементов на главной диагонали


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

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

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