 работа с одномерным массивом, нахождение максимума |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| якуб |
 18.10.2005 18:32
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Реальное имя: кирилл Репутация:  0   |
Вводится длина одномерного массива, состоящего из целых чисел,
и его элементы,найти позицию первого максимума среди отрицательных чисел. var A :array [1..100] of integer ;
I,N,max,N max:integer;
Begin
read(N);
For I:=1 to N do
read(A[I]);
max :=0;
for I:=1to N do
if A[I]< max then
max:=A[I];
for I:=1 to N do
if (A[I]<0) and (A[I]> max )then
Begin
max:=A[I];
N max:=I;
end;
for I:=1 to N do
write(A[I]);
write(N max);
end.
проверьте пожалуста задачку используем теги для офорлмения кода!!! Сообщение отредактировано: Altair - 18.10.2005 19:01 |
   |
 
|
  |
Ответов(1 - 10)
| klem4 |
18.10.2005 18:52
Сообщение
#2
|
 Perl. Just code it!  Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
За то что хотябы попытался сделать держи правильное решение, у тебя что-то не очень похоже
 :uses crt;
var
x : array[1..30] of integer;
i, n, nmax : byte;
Begin
clrscr;
write('n='); readln(n);
nmax := 0;
for i := 1 to n do begin
write('x[',i,']=');
readln(x[i]);
if (x[i]<0) and ((nmax=0)or(x[i]>x[nmax])) then
nmax := i;
end;
if nmax = 0 then
writeln('No')
else writeln('nmax=',nmax,' x[',nmax,']=', x[nmax]);
readln;
End.
Сообщение отредактировано: klem4 - 18.10.2005 18:52 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| якуб |
18.10.2005 19:34
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Реальное имя: кирилл Репутация: 0 |
спасибо <>!
этикет, сэээр! Сообщение отредактировано: Altair - 18.10.2005 20:07 |
|
|
|
| Guest |
 19.10.2005 19:20
Сообщение
#4
|
|
Гость |
программа неправильная, она выдает ошибку! проверь ее пожалуйста
|
|
|
|
| klem4 |
19.10.2005 19:29
Сообщение
#5
|
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Ошибка в 7 строке.
Послушай, у нас место телепата на форуме вакантно, так что милости просим, а если по делу, какая ошибка ? при каких исходных данных ? Сообщение отредактировано: klem4 - 19.10.2005 19:30 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| volvo |
19.10.2005 19:35
Сообщение
#6
|
|
Гость |
Цитата(Guest @ 19.10.2005 18:20) программа неправильная, она выдает ошибку! Я бы не стал так утверждать...Во-первых, КАКУЮ ошибку выдает программа, во-вторых - какие данные вводил? Голословные утверждения НЕ принимаются... |
|
|
|
| якуб |
19.10.2005 19:36
Сообщение
#7
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Реальное имя: кирилл Репутация: 0 |
она выдает ошибку :File not found (SISTEM .TRU).
Сообщение отредактировано: якуб - 19.10.2005 19:36 |
|
|
|
| volvo |
19.10.2005 19:38
Сообщение
#8
|
|
Гость |
Вот сначала установи себе НОРМАЛЬНО Паскаль, а потом приходи с претензиями.
|
|
|
|
| якуб |
19.10.2005 19:42
Сообщение
#9
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Реальное имя: кирилл Репутация: 0 |
да ладно не наезжай я то не спец по программам я поэтому к вам и обратился :molitva:
|
|
|
|
| klem4 |
19.10.2005 19:43
Сообщение
#10
|
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
www.pascal.dax.ru в разделе Дистрибутивы скачай себе нормальный BP7 и живи спокойно.
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| volvo |
19.10.2005 19:44
Сообщение
#11
|
|
Гость |
А дело не в программах, а в тех руках, которые их устанавливают...
P.S. Тема плавно переходит во флейм... |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 27.07.2025 12:45 |