Помогите, пожалуйста - все очень просто.

[alex2008ean]

Добрый день!
Все очень просто даже для среднего и ниже уровня программера, но для меня сложно))- забыл все
Суть задачи: нужно сформировать двумерную матрицу, а точнее нулевую - все елементы нули. Потом выборочно присвоить значение 1 елементам нулевой матрицы, т.е. я сам задаю где мне надо значение 1.

Как сделать в паскале (как будет прописываться в проге) эту нулевую матрицу. Вторая часть желательна, но необязательно - она походу много времени займет.

Заранее спасибо за помощь!

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    i,j:integer;
begin
clrscr;
for i:=1 to n do
 for j:=1 to n do
  a[i,j]:=0;
repeat
clrscr;
Writeln('Input i');
Readln(i);
Writeln('Input j');
Readln(j);
Writeln('Input element ');
Readln(a[i,j]);
Writeln('Continue(y/n)?');
until readkey='n';
clrscr;
for i:=1 to n do
 begin
 for j:=1 to n do
  write(a[i,j]:4);
 writeln;
 end;
end.

[alex2008ean]

Alex_fcsm Вам за помощь. Удачи!