Работа с матрицами, Кому не понятно как решаются задачи на Паскале может зайти сюда. Опции

[dron4ik]

Complier привет! Ты мне написал код следующе задачки.


В матрице 3на4 заменить все четные строки однерками.



Я только одного не пойму при компиляции кода все норма, а вот при запуске выходит черный экран(понятно дело так должно быть) пользователь должен вводить какие данные ??? в каком количестве??? когда я ввожу много цифр то прога работает а когда мало нет она ждет чтоб пользователь вводил еще. Так матрица 3на4 эжто когда получается 12 строк чтоль?



Добавлено через 7 мин.
var
a:array[1..3, 1..4] of integer;
i, j:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
readln(a[i, j]);
for i:=1 to 4 do
a[2,i]:=1;
for i:=1 to 3 do begin
for j:=1 to 4 do
write(a[i, j]:3);
writeln;
end;
end.



ВОТ САМ КОД

Сообщение отредактировано: dron4ik - 2.01.2008 20:04