Как сформировать двухмерный массив 7 на 7 и заполнить его единицами (на Паскале)
 

Как сформировать двухмерный массив 7 на 7 и заполнить его единицами (на Паскале)? Прошу, помогите!

Сначала его нужно прописать в разделе переменных, потом с помощью циклов заполнить.
вывод содержимого массива на экран сделаете сами :)

Вы думаете, я этого не сделала?! Еще как сделала! 128 раз! И эти проклятые единицы в зависимости от расстановки begin и end вылезают то в строчку, то в столбик, то по 7, то по 49 сразу!!! :mad:

Ну тоже мне - проблема века!

Продолжение:

FOR i:=1 TO 7 DO
BEGIN
FOR j:=1 TO 7 DO
Write(a[i, j]:3);
Writeln;
END;
READLN;
END.

Да, "end." в программе AlexZir убрать.

Извиняйте, конечно, но программу я написал так, как был поставлен вопрос :). Более четко формулируйте задание, будет более полный вариант решения.

Спасибо!

Решала совсем другую задачу и поняла, как решить эту:

Program Pascal;
Var a:array[1..100,1..100] of integer;
i,j:integer;
BEGIN
randomize;
For i:=1 to 7 do
begin
For j:=1 to 7 do
begin
a[i,j]:=random(1)+1;
write(a[i,j]:4);
end;
writeln;
end;
END.

По-другому не получается, только так)))

Решение в общем верное, только возник один вопрос.
А это вам зачем? Вы генерируете случайное значение из интервала (0;1) и увеличиваете его на 1. При этом у вас все равно элемент массива получает значение 1, так как этот массив целочисленный.

Не проще ли написать просто присвоение a[i,j]:=1; не используя генератор псевдослучайных чисел совсем?

Да я пробовала, но почему-то не получается.
Сейчас попробовала сделать это в Pascal ABC и все получилось! ))))) Видимо, с Turbo Pascal что-то не в порядке. И еще я, наверное, напутала что-то с begin'ами и end'ами.

Нет, Маша, это не дело. Должно получаться. Давайте подробнее. Ведь что Вы написали? Вместо простейшего оператора присваивания
a[i,j]:=1;
Вы поступаете так:
1. Включаете генератор случайных чисел.
2. Даете ему такое дикое ограничение на диапазон, что он способен генерировать только нули.
3. К этим нулям прибавляете единицу.
В результате, конечно же, единицу и получаете. Но согласитесь - из Брянска в Москву можно добираться и через Лос-Анджелес, только вот зачем?