|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.10.2009, 20:12 | #1 |
Новичок
Джуниор
Регистрация: 29.10.2009
Сообщений: 3
|
Помогите исправить, пожалуйста
program lalala;
var N, k, i: integer; X, A: array [1..20] of integer; begin write('vvedite N='); readln(N); for i:=1 to N do begin write('X[',i,']='); readln(X[i]) end; for i:=1 to N do begin if X[i]>0 then X[i]:=A[k]; A[k]:=1; end; write(X[k]) end. выдает ошибку: выход за границы диапазона что нужно исправить? а то я сильно туплю |
29.10.2009, 20:28 | #2 | |
ACM!
Форумчанин
Регистрация: 19.06.2009
Сообщений: 382
|
Цитата:
И еще, если N > 20, тоже будет глюк! |
|
29.10.2009, 20:30 | #3 | |
Форумчанин
Регистрация: 06.04.2009
Сообщений: 124
|
Цитата:
Последний раз редактировалось Desha; 29.10.2009 в 20:33. |
|
29.10.2009, 20:34 | #4 |
Пользователь
Регистрация: 02.05.2009
Сообщений: 13
|
у вас k = 0;
а масив от 1 до 20.. просто после Begin Код:
Код:
Не всё так сложно, как кажется...
Помог - ставь плюсег |
29.10.2009, 20:40 | #5 |
Форумчанин
Регистрация: 06.04.2009
Сообщений: 124
|
Точно lawless сказал. С последним кодом работает.
|
29.10.2009, 21:51 | #6 |
Новичок
Джуниор
Регистрация: 29.10.2009
Сообщений: 3
|
спасибо
оказывается не все так сложно |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста исправить ошибку!!!Please!!! | Irin@ | Помощь студентам | 1 | 02.04.2009 20:31 |
Помогите, пожалуйста, не могу исправить ошибки | bunya | Общие вопросы C/C++ | 7 | 14.01.2009 22:28 |
Помогите пожалуйста найти и исправить ошибку | Sam04 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 10.06.2008 08:28 |
помогите пожалуйста исправить задачу | kardan | Помощь студентам | 2 | 12.04.2008 10:16 |
Помогите,пожалуйста,исправить задачу... | Загадка | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 21.12.2006 00:42 |