Задача на двумерный массив.

[Николай1]

Заполнить массив следующими значениями и вывести в виде таблицы.
00100
00100
11111
00100
00100

[Mandrivnyk]

Язык? Наработки? "Пожалуйста", в конце-концов?
Нету? -- Удачи в написании.

[Николай1]

Язык паскаль, пожалуйста.

[Alex11223]

Огласите сумму и способы получения вознаграждения за решение. Или покажите наработки.

[Alex11223]

Ой, не заметил "пожалуйста" )
Ввод вручную в консоли.

for i := 1  to n do
    for j := 1 to n do
    begin
      write('Enter element ', i, ', ', j, ': ');
      readln(arr[i, j]);
    end;
  writeln;
  for i := 1 to n do 
  begin
    for j := 1 to n do
      write(arr[i, j]);
    writeln
  end;