Дистанционная подготовка: Не скажете первый тест?
Не скажете первый тест?
от Илья Гридасов - Воскресенье 8 Декабрь 2013, 15:05
111489. Города
  Не могу найти ошибку!
var
a,b,c,n,e,x,i,j,y:longint;
m: array [1..50,1..50] of char;
k: array [1..50,1..50] of integer;
begin
readln(n);
x:=0;
for i:=1 to n do
for j:=1 to n do
k[i,j]:=1;
for i:=1 to n do
for j:=1 to n do
read(m[i,j]);
for i:=1 to n do for j:=1 to n do if m[i,j]='C'
then x:=x+1;
i:=1; j:=1; c:=0;
while (i
Re: Не скажете первый тест?
от Антон Карабанов - Воскресенье 8 Декабрь 2013, 15:30
  Ошибка начинается на этапе ввода данных, конкретно - в этом цикле:

for i:=1 to n do
    for j:=1 to n do
        read(m[i,j]);

Если бы данные были в виде одной строки из 9 символов - сработало бы "на ура", а у вас реализовано так, что даже в первом тесте из условия третью строку символов "DDC" ваша программа не считывает.

можно сделать так:

for i:=1 to n do
    begin
    for j:=1 to n do
        read(m[i,j]);
    readln();
    end;

PS: первый тест - тест из условия.