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

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

30.01.2012, 23:02. Показов 2138. Ответов 3
Метки нет (Все метки)

Даны три одномерных массива x,y,z. Найти максимальный и минимальный элементы среди всех массивов, а также их номера с помощью процедур.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.01.2012, 23:02
Ответы с готовыми решениями:

Найти минимальный и максимальный элементы двух массивов
Прошу прощения, что вновь обращаюсь со свое проблемой. Сегодня узнал, что завтра последний день...

Найти максимальный и минимальный элементы среди неповторяющихся чисел
дан целочисленный массив X=(x1,x2,...xn), в котором могут быть одинаковые числа. Найти...

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

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

3
Mobile Software Engineer
Эксперт С++
5365 / 1584 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
30.01.2012, 23:06 2
будьте добры, основную программу написать сами, а с вопросами - обращайтесь
Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure Min_Max(arr: TArr; n: integer);
var
 i, min, max: integer;
begin
 min:=1; max:=1;
  for i:=1 to n do
   if arr[i] > arr[max] then max:=i
    else if arr[i] < arr[min] then min:=i;
 writeln('Минимальный: ', arr[min], '; Его номер: ', min);
 writeln('Максимальный: ', arr[max], '; Его номер: ', max);
end;
0
0 / 0 / 0
Регистрация: 06.02.2011
Сообщений: 17
31.01.2012, 23:15  [ТС] 3
А как массивы-то задать? Размерность должна быть разная у всех
Так же выдает ошибку "нет индексного свойства по умолчанию для типа integer". Как это понять?
0
79 / 51 / 46
Регистрация: 30.09.2010
Сообщений: 138
01.02.2012, 08:42 4
Цитата Сообщение от looker Посмотреть сообщение
А как массивы-то задать? Размерность должна быть разная у всех
Так же выдает ошибку "нет индексного свойства по умолчанию для типа integer". Как это понять?
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
type
    TArr= array[1..100]of integer;
    
procedure Min_Max(arr: TArr; n: integer);
var
 i, min, max: integer;
begin
 min:=1; max:=1;
  for i:=1 to n do
   if arr[i] > arr[max] then max:=i
    else if arr[i] < arr[min] then min:=i;
 writeln('Минимальный: ', arr[min], '; Его номер: ', min);
 writeln('Максимальный: ', arr[max], '; Его номер: ', max);
end;
 
procedure read_(arr: TArr; n: integer);
var
    i: integer;
begin
    for i:=1 to N do
    begin
        arr[i]:=random(N);
    end;
end;
var
    x,y,z:TArr;
    Nx,Ny,Nz:byte;
    i:byte;
begin
    repeat
        writeln('Введите длину 1-ого,2-ого и 3-его массива:');
        readln(Nx,Ny,Nz);
    until(Nx or Ny or Nz)<100;
    
    read_(x,Nx);
    read_(y,Ny);
    read_(z,Nz);
    Min_Max(x,Nx);
    Min_Max(y,Ny);
    Min_Max(z,Nz);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.02.2012, 08:42
Помогаю со студенческими работами здесь

Найти минимальный и максимальный элементы заданного массива; найти сумму всех элементов
Дано массив a, найти минимальный и максимальный элемент массива, суму всех элементов массива,...

В матрице найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элементы
В матрице размером n на m (1&lt;n, m&lt;10) (ввод n, m и матрицы с клавиатуры) найти минимальный и...

Найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элемент
3) В матрице размером n на m (1&lt;n, m&lt;10) (ввод n, m и матрицы с клавиатуры) найти минимальный и...

Подпрограмма процедура. Максимальный и минимальный элементы матриц.
Здравствуйте, умные люди! Помогите, пожалуйста: Дано задание: Найти минимальный и максимальный ...


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

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

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