Ответ: Помогите исправить ошибку
Чтото ты намудрил.
Должно быть так
for i:=1 to 10 do
begin
S:=readline (res);
for j:=1 to 10 do
land_array[j,i]:=stringtointeger(GetChar(S,j-1));
end;
closeresource (res);
То, что красным выделено, ты пропустил
__________________
Мечта программиста: запрограммировать процесс программирования.
Всё гениальное - просто.
http://passcall.ucoz.com
|