![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Nagare Boshi |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 6 Пол: Женский Репутация: ![]() ![]() ![]() |
Program z7;
Var A:array [1..8] of integer;
i,MAX, MIN:integer;
Begin
for i:=1 to 8 do
Begin
A[i]:=random(15)-5;
End;
WriteLn(A[i]);
MAX:=A[1];
for i:=2 to 8 do
Begin
if MAX<A[i] then
Max:=A[i];
End;
WriteLn(MAX);
for i:=2 to 8 do
Begin
if MIN>A[i] then
MIN:=A[i];
End;
WriteLn(MIN);
End.
Насчет минимального значения не уверена. Как вообще можно узнать значение индекса элемента? Сообщение отредактировано: Nagare Boshi - 8.01.2010 16:53 |
![]() ![]() |
Ozzя |
![]()
Сообщение
#2
|
![]() Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: ![]() ![]() ![]() |
Program z7;
const
n=8;
Var A:array [1..n] of integer;
i,MAX, MIN:integer;
iMax,iMin:integer;
Begin
for i:=1 to n do
Begin
A[i]:=random(15)-5;
WriteLn(A[i]);
End;
MAX:=A[1];
MIN:=A[1];
for i:=2 to n do
begin
if MAX<A[i] then
Begin
Max:=A[i];
iMax:=i;
End;
if MIN>A[i] then
Begin
MIN:=A[i];
iMin:=i;
End;
end;
WriteLn(MAX, IMax);
WriteLn(MIN, iMIn);
End.
Сообщение отредактировано: Ozzя - 8.01.2010 16:59 |
Lapp |
![]()
Сообщение
#3
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
Ozzя, твой код не сработает, если мин/макс в первом элементе - ты забыл инициализировать imin и imax. Это можно исправить, но лучше совсем не использовать MIN и MAX, а только их индексы. Вот так:
Program z7;
const
n=8;
Var
A:array [1..n] of integer;
i,iMax,iMin:integer;
Begin
for i:=1 to n do Begin
A[i]:=random(15)-5;
WriteLn(A[i]);
End;
iMax:=1;
iMin:=1;
for i:=2 to n do begin
if A[iMax]<A[i] then iMax:=i;
if A[iMin]>A[i] then iMin:=i;
end;
WriteLn('Max: ',A[iMax],' at ',iMax);
WriteLn('Min: ',A[iMin],' at ',iMIn);
End.
-------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Nagare Boshi |
![]()
Сообщение
#4
|
Группа: Пользователи Сообщений: 6 Пол: Женский Репутация: ![]() ![]() ![]() |
А что значит at?
![]() |
Lapp |
![]()
Сообщение
#5
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
А что значит at? В данном случае - "в позиции". Вообще - предлог со значениями "у", "в" (перевод) ![]() Учи английский, он весьма полезен в программировании. Паскаль, кстати, тут ни при чем.. )) -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
![]() ![]() |
![]() |
Текстовая версия | 24.07.2025 7:02 |