Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
stalker161reg
0 / 0 / 1
Регистрация: 09.11.2013
Сообщений: 15
#1

Процедуры и функции. Найти макс\ мин значение элементов массива - Pascal ABC

24.12.2013, 22:33. Просмотров 972. Ответов 1
Метки нет (Все метки)

Я не нашел на форуме эту программу в которой процедуры и функции использовались бы. Паскаль. Задача:

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

Зарание спасибо всем откликнувшимся.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2013, 22:33
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Процедуры и функции. Найти макс\ мин значение элементов массива (Pascal ABC):

Найти разность мин и макс значение функции
Найти разность мин и макс значения функции y:=(1-e(в степени -x)*sin(x/2) от...

Определение макс и мин элементов в массивах в виде подпрограммы
Здравствуйте! Помогите, пожалуйста, вот с такой задачей: Дано: массивы...

Процедуры и функции: Найти максимальный элемент и его порядковый номер среди элементов массива
Добрый день помогите пожалуста Нужно Ввести с экрана одномерный массив А...

Найти мин/макс значения в двумерном массиве
Дан двумерный массив. Определить: а) Количество максимальных элементов в...

В одномерном массиве найти мин и макс элементы и заменить их местами
Написать программы: 1) в одномерном массиве найти мин и макс элементы и...

Найти значение функции, используя процедуры и функции
Помогите плз написать программу с помощью процедур и функций. Найти значение...

1
centrum
14 / 14 / 14
Регистрация: 09.12.2012
Сообщений: 56
24.12.2013, 23:40 #2
Лучший ответ Сообщение было отмечено stalker161reg как решение

Решение

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
uses crt;
type mas = array[1..99,1..99] of integer;
 
procedure minimum(a:mas;n,m:integer);
var i,j,min,kolMin:integer;
begin
     kolMin:=0;
     min:=a[1,1];
     for i:=1 to n do
         for j:=1 to m do
         begin
              if a[i,j]<min then
                 min:=a[i,j];
         end;
     writeln('минимальный: ', min);
     for i:=1 to n do
         for j:=1 to m do
         begin
              if a[i,j] = min then inc(kolMin);
         end;
     writeln('кол-во минимальных: ', kolMin);
end;
 
procedure maximum(a:mas;n,m:integer);
var i,j,max,kolMax:integer;
begin
     kolMax:=0;
     max:=a[1,1];
     for i:=1 to n do
         for j:=1 to m do
         begin
              if a[i,j]>max then
                 max:=a[i,j];
         end;
     writeln('максимальный: ', max);
     for i:=1 to n do
         for j:=1 to m do
         begin
              if a[i,j] = max then inc(kolMax);
         end;
     writeln('кол-во максимальных: ', kolMax);
end;
 
 
var ar:array[1..99,1..99] of integer; n,m,i,j:integer;
begin
writeln('кол-во срок:');
readln(n);
writeln('кол-во столбцов:');
readln(m);
for i:=1 to n do
   for j:=1 to m do
       ar[i,j]:=random(40);
writeln('матрица: ');
for i:=1 to n do begin
   for j:=1 to m do begin
       write (ar[i,j],'  ');
       end;
       writeln;
       end;
       
minimum(ar,n,m);
writeln;
maximum(ar,n,m);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2013, 23:40
Привет! Вот еще темы с решениями:

Найти в каждой строке матрицы макс. и мин. элементы и поменять их местами первым и последним элементом строки соответственно
Дана матрица B.Найти в каждой строке матрицы макс. и мин. элементы и поменять...

Строку, содержащую макс элемент массива поменять со строкой содержащий мин элемент
В заданной матрице A(n,n), состоящей из различных вещественных чисел, строку...

Дана матрица B[N,M].Найти в каждой строке матрицы макс. и мин. элементы и поменять их местами первым и последним элементом строки соответственно
ребята помогите плиз!!! Дана матрица B.Найти в каждой строке матрицы макс. и...

Процедуры и функции: обмен элементов массива
В двумерных массивах A и В числа верхнего треугольника между главной и побочной...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru