|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.04.2010, 18:46 | #1 |
Пользователь
Регистрация: 04.04.2010
Сообщений: 29
|
найти ошибку в массиве, паскаль
Удалить из вещественного массива все элементы, отличающиеся от его максимального элемента не более чем на Е, кроме самого максимального элемента ( Е - малое число, например, 0.001).
Вот мой исходник, помогите разобраться, почему он не работает: uses crt; const eps=0.001; b=100; var mas:array[1..b] of real; i,n:integer; max:real; begin clrscr; write('kolichestvo elementov-'); readln(n); writeln('massiv'); randomize; for i:=1 to n do begin writeln('mas[',i,']= '); readln(mas[i]); end; for i:=1 to n do if (mas[i]>=max) or (i=1) then max:=mas[i]; writeln; writeln('max element: ',max); for i:=1 to n do begin if (abs(max-mas[i])<eps) then mas[i]:=mas[i-1]; writeln('mas[',i,']= ',mas[i]); end; end. Помогите пожалуйста!!!! |
09.04.2010, 19:03 | #2 |
Proger Man
Форумчанин
Регистрация: 07.03.2009
Сообщений: 584
|
Что именно не работает?И заключай код в теги "" - без кавычек что бы было удобнее его читать.
ShowMessage('Добро пожаловать!');
|
09.04.2010, 19:12 | #3 |
Пользователь
Регистрация: 04.04.2010
Сообщений: 29
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль, цикл(помогите найти ошибку) | MsJane | Помощь студентам | 2 | 23.12.2009 23:01 |
Помогите найти ошибку. Паскаль | Паскалька^^ | Помощь студентам | 6 | 02.12.2009 16:52 |
помогите найти ошибку - паскаль | ai\ekcah^p | Помощь студентам | 2 | 11.05.2009 17:32 |
Найти ошибку в задаче на ПАскаль | Анжелика | Помощь студентам | 3 | 16.01.2009 00:55 |
Паскаль, не могу найти ошибку в программе | Julinja | Помощь студентам | 2 | 17.11.2008 20:42 |