Символьный массив, Помогите_)) Опции

[Cheburashka]

В общем я столкнулся с такой проблемой что у меня массив символов не заполняется полностью!
Вот что я делаю:

  var N,M,i,j,k:longint;
      a:array [1..101,1..101] of char;
begin
  Readln (N,M);
  For i:=1 to N do
    For j:=1 to M do
      Read (a[i,j]);
...
end.

В чём здесь ошибка?

[Ozzя]

n,m какие вводятся? Если меньше 101, то понятно... ;)

[Cheburashka]

Ну к примеру поле для морского боя 10*10. А в чём дело то?

[Ozzя]

Исправь на

a:array [1..10,1..10] of char;

Ты же массив 101 на 101 задаешь, а вводишь 100 значений. Они у тебя все в 1-й строке и помещаются.

[Cheburashka]

СТранно, ну а если мне к примеру требуется любое поле в данном интервале?

[Lapp]

В чём здесь ошибка?

Как ты вводишь данные? Через пробел или энтер жмешь после каждого? Тут нужен ReadLn, а не Read. И вводить через энтер.

[Ozzя]

Не понял вопроса. Поясни

[Cheburashka]

Сначала я ввожу размер поля к примеру 4*4 (Enter) и хочу я туда закинуть данное поле:
****
**..
*...
*...

[Lapp]

Сначала я ввожу размер поля к примеру 4*4 (Enter) и хочу я туда закинуть данное поле:
****
**..
*...
*...

Ага, ясно.
Извиняюсь по поводу первого мессаджа, не совсем то сказал.

Ты должен вводить так:
4 4
******..*...*...

[Cheburashka]

А если мне нужно вводить именно таким образом который показан в мом примере?

[Lapp]

Либо делай ReadLn во внешнем цикле (это правильнее, конечно)

  For i:=1 to N do begin
    For j:=1 to M do
      Read (a[i,j]);
    ReadLn
  end;

[Cheburashka]

Спасибо Вам большое за помощь!!!
Вот теперь задача чуть-чуть недорошевивается

[Lapp]

Происходило следующее. Твои энтеры читались и аккуратно записывались в массив. Поэтому процесс записи заканчивался реально раньше. Последние символы вообще не читались.

Добавлено через 1 мин.

недорошевивается

Перведи, плз

[Cheburashka]

Ой))) Чуть-чуть не то написал - "Недорешивается"
В общем эту проблему я уже решил))
Я делал программу типа морского боя.