Заполнить массив единицами

[Ману]

Заполнить массив [1..5,1..4] единицами...
помогите,пожалуйста, срочно!!!

[Человек_Борща]

заполнил...

m:array[1..5,1..4] of Integer = ((1,1,1,1,1),(1,1,1,1));

[Stilet]

заполнил...

Нет, не заполнил
Там 5 раз по 4 группы нуна вписывать.

[Аватар]

Подозреваю, что за такое заполнение ТС 2 балла получит

for i:=1 to 5 for j:=1 to 4 do a[i,j]:=1;

[Stilet]

for i:=1 to 5 for j:=1 to 4 do a[i,j]:=1;

fillchar(a,sizeof(a),1);

Хи-хи-хи ))))

[Аватар]

Та ладно, но мне все равно больше двойки. Три с минусом например

[doktor255]

Подозреваю, что за такое заполнение ТС 2 балла получит

А разве ТС заслуживает другой оценки? Задача элементарнейшая.