2 / 2 / 2
Регистрация: 05.10.2010
Сообщений: 13
1

Описать функцию MaxN(X.N), находящую номер максимального элемента одномерного массива X размер N.

07.10.2010, 11:16. Показов 963. Ответов 1
Метки нет (Все метки)

Описать функцию MaxN(X.N), находящую номер максимального элемента одномерного массива X размер N. С помощью этой функции найти номера максимальных элементов массивов A,B,C размера N1,N2,N3 соответственно.

Помогите плиз

Добавлено через 16 часов 55 минут
Правельно нет?

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
program z_array;
uses crt;
type massiv = array[1..100] of real;
var ArrayA, ArrayB, ArrayC : massiv;
    DimensionA, DimensionB, DimensionC, CounterI: byte;
 
function MaxN(ArrayM: massiv; DimensionM: byte): byte;
var MaxElement, CounterI:byte;
begin  MaxElement := 1;
for CounterI := 2 to DimensionM do
  if ArrayM[MaxElement] < ArrayM[CounterI] then
   MaxElement := CounterI;
   
  MaxN := MaxElement; 
end;
begin
 clrscr; 
 writeln('Введите количество элементов массива А'); 
 readln(DimensionA); 
 writeln('Введите количество элементов массива B'); 
 readln(DimensionB); 
 writeln('Введите количество элементов массива C'); 
 readln(DimensionC); 
 
for CounterI := 1 to DimensionA do
begin
  write('A[',CounterI,']= '); 
  readln(ArrayA[CounterI]); 
end;
 
for CounterI := 1 to DimensionB do
begin
  write('B[',CounterI,']= '); 
  readln(ArrayB[CounterI]); 
end;
 
for CounterI := 1 to DimensionC do
begin
  write('C[',CounterI,']= '); 
  readln(ArrayC[CounterI]); 
end;
 writeln; 
 writeln('Данный массив A'); 
for CounterI := 1 to DimensionA do
 write(ArrayA[CounterI]:0:2,' '); 
 writeln; 
 writeln('Номер максимального элемента массива A равен ',MaxN(ArrayA, DimensionA)); 
 
 writeln; 
 writeln('Данный массив B'); 
for CounterI := 1 to DimensionB do
 write(ArrayB[CounterI]:0:2,' '); 
 writeln; 
 writeln('Номер максимального элемента массива B равен ',MaxN(ArrayB, DimensionB)); 
 
 writeln; 
 writeln('Данный массив C'); 
for CounterI := 1 to DimensionC do
 write(ArrayC[CounterI]:0:2,' '); 
 writeln; 
 writeln('Номер максимального элемента массива C равен ',MaxN(ArrayC, DimensionC)); 
 readln; 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.10.2010, 11:16
Ответы с готовыми решениями:

Описать функцию NMax(A,N), находящую номер максимального элемента массива
A) Описать функцию NMax(A,N) целого типа, находящую номер максимального элемента массива A...

Описать функцию NMin(A,N) и NMax(A,N) целого типа, находящую номер минимального и максимального элемента массива A
Помогите пожалуйста написать код. Описать функцию NMin(A,N) и NMax(A,N) целого типа, находящую...

Описать функцию MaxNum(A, N) целого типа, находящую номер максимального элемента вещественного массива A размера N
Описать функцию MaxNum(A, N) целого типа, находящую номер максимального элемента вещественного...

Описать функцию NMin(A,N) (NMax(A,N)) целого типа, находящую номер минимального (максимального) элемента массива.
Описать функцию NMin(A,N) (NMax(A,N)) целого типа, находящую номер минимального (максимального)...

1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
07.10.2010, 11:18 2
DjeromG, На вид правильно, а если еще и результат правильно выдает, то вообще круто!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.10.2010, 11:18
Помогаю со студенческими работами здесь

Описать функцию находящую номер минимального элемента массива
Всем привет, я начинающий программист, нужна ваша помощь с такой вот задачкой: Описать функцию...

Описать функцию NMin(A,N), находящую номер минимального элемента массива
описать функцию NMin(A,N) целого типа, находящую номер минимального элемента массива А(массив...

Описать функцию Max, находящую максимальное значение из элементов одномерного массива
2) Описать функцию Max, находящую максимальное значение из элементов одномерного массива х размера...

Описать процедуру, находящую номера минимального и максимального элемента вещественного массива А размера N.
Описать процедуру MinMaxNum (A, N, NMin, NMax), находящую номера минимального и максимального...


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

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

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