Задача на массивы, правильно решил? Опции

[Игорь2]

Здравствуйте
Проверте задачу , при выводе данных на печать выводит 0 не на своих местах
" Все элементы двухмерного массива , сумма индексов которых кратна пяти заменить нулями"
Вот исходник самой задачи

program f321;
var a:array [1..2,1..3] of integer;
i,j:integer;
begin
for i:=1 to 2 do begin
for j:=1 to 3 do begin
read (a[i,j]);
if (i+j) mod 5=0 then a[i,j]:=0;
end;end;
for i:=1 to 2 do
for j:=1 to 3 do writeln (a[i,j]);
end.

М

Тэги ставь, плз

[Lapp]

при выводе данных на печать выводит 0 не на своих местах

У тебя вообще все в один столбик - где там "свои места"?
Сделай вывод как-то так:

  for i:=1 to 2 do begin
    for j:=1 to 3 do write (a[i,j]:5);
    WriteLn
  end;

М

а что это за множество перенумерованных Игорей?