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

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

20.06.2012, 22:30. Просмотров 1215. Ответов 3
Метки нет (Все метки)

Ошибка!!!!!

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
//Дано целое число N и набор из N целых чисел. 
//Найти номера первого минимального и последнего 
//максимального элемента из данного набора и вывести их в указанном порядке. 
program Minmax6;
var
a,N,i,max,min,mx,mn:integer;
begin
i:=1;
Writeln('Введите число N');
readln(N);
Writeln('Введите ',N,' целых чисел.');
Read(a);
max:=a;
min:=a;
mn:=i;
mx:=i;
While (ido
begin
inc(i);
Read(a);
if athen begin Min:=a; mn:=i;end;
if a>max then begin Max:=a; mx:=i;end;
if a=max then begin mx:=i;end;
end;
Writeln;
Writeln('Номер первого минимального элемента = ',mn);
Writeln('Номер последнего максимального элемента = ',mx);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.06.2012, 22:30
Ответы с готовыми решениями:

Найти номера первого и последнего минимального элемента
помогите составить программу: Дано целое число N и набор из N целых чисел. Найти номера...

Найти количество элементов, расположенных перед|после первого|последнего минимального|максимального
1. Дан набор из десяти целочисленных элементов. Найти количество элементов, расположенных...

Найти номер последнего минимального элемента среди элементов, меньших t и лежащих правее первого элемента, равного s
Дан целочисленный вектор A(n). Найти номер последнего минимального элемента среди элементов,...

Найти номер первого минимального элемента среди положительных элементов, расположенных до первого элемента, кратного пяти.
Задан целочисленный одномерный массив a из n элементов. Найти номер первого минимального элемента...

3
560 / 483 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
20.06.2012, 22:32 2
Цитата Сообщение от Abusha Посмотреть сообщение
Pascal
1
While (ido
Здесь неверное выражение.
0
0 / 0 / 0
Регистрация: 28.04.2012
Сообщений: 12
20.06.2012, 22:36  [ТС] 3
ДА! а как это исправить... я не в курсях... можете помочь....?!
0
560 / 483 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
20.06.2012, 22:53 4
Цитата Сообщение от Abusha Посмотреть сообщение
Pascal
1
if athen begin Min:=a; mn:=i;end;
Еще одна ошибка.
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
program Minmax6;
var
a,N,i,max,min,mx,mn:integer;
begin
i:=1;
Writeln('Введите число N');
readln(N);
Writeln('Введите ',N,' целых чисел.');
Read(a);
max:=a;
min:=a;
mn:=i;
mx:=i;
While i < N do
begin
inc(i);
Read(a);
if a < max then begin Min:=a; mn:=i;end;
if a>max then begin Max:=a; mx:=i;end;
if a=max then begin mx:=i;end;
end;
Writeln;
Writeln('Номер первого минимального элемента = ',mn);
Writeln('Номер последнего максимального элемента = ',mx);
end.
Как-то так наверное должно быть.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.06.2012, 22:53

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Найти в массиве номера позиции первого и последнего нуля
Очень нужна помощь по паскалю....вот сама задачка После ввода многочисленного массива(массив уже...

Найти номер первого максимального значения среди элементов, меньших a и расположенных правее первого элемента, кратного трем
Помогите плз! Найти номер первого максимального значения среди элементов, меньших a и...

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


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

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

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