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

[blo]

Помогите, пожалуйста, решите задачку! Вроде несложная, но я в этом ничего не понимаю. Завтра нужна на зачёте будет...

Составить программу заполнения двумерного массива А (3,5) случайными значениями с выводом их на экран. Количество элементов массива задать с клавиатуры. Диапазон значений от 1 до 100.

[Mad_Cat]

Составить программу заполнения двумерного массива А (3,5) случайными значениями с выводом их на экран. Количество элементов массива задать с клавиатуры

однако не вяжется
вот для A(3,5)

for i:=1 to 3 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(100)+1;
write(a[i,j]:5);
end;
writeln;
end;

[blo]

Ага, ладно, спасибо большущее, надеюсь эта тема прокатит )))

[jeams]

uses
SysUtils;

var Rand: array[1..999] of integer;
I, X, NumberX : integer;
begin
{Установка датчика случайных чисел}
Randomize;
{Заполнение массива случайными числами и вывод их на экран}
writeln( 'Massiv slucainih cisel: ');
for I:=1 to 999 do
begin
Rand[I]:=random(900)+100; Write(Rand[I]:10)
end;
readln;

end.
{вывод на экран массива от100 до1000 случайных чисел / Delphi}

[blo]

Mad_Cat, нет, в бейсике это не работает, я только что проверил: каждый раз вылезает ошибка после двоеточий ((

jeams, delphi не годится по-моему

[blo]

По идее, правильное решение вот (друг подсказал):

cls: randomize timer
dim x(3,5)
for i = 1 to 3
for j = 1 to 5
x(i,j)=int (rnd(1)*100)+1
print x(i,j);
next j
next i