Заполнить двухмерный массив размера N*M случайными целыми числами

@U4ENIG · Регистрация: 09.03.2014

Студворк — интернет-сервис помощи студентам

Помогите решить задачу:

Заполнить двухмерный массив размера N*M случайными целыми числами, диапазон изменения которых вводится с клавиатуры.
Вывести массив на экран.

Заранее спасибо!

@Francleene · 09.03.2014, 15:28

Если надо, то можно сделать массив динамическим

Pascal

var a:array[1..1000,1..1000] of integer;
n,m,i,j,d:integer;
begin
randomize;
readln(n,m,d);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(d)+1;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:0:4);
writeln;
end;
end.

@Puporev · 09.03.2014, 15:35

Сообщение от U4ENIG

диапазон изменения

Это 2 числа, а не одно

Pascal

1	a[i,j]:=a+random(b-a+1);

@U4ENIG 0 / 0 / 0 Регистрация: 09.03.2014 Сообщений: 11
		1
	Заполнить двухмерный массив размера NM случайными целыми числами 09.03.2014, 15:24. Показов* 4675. Ответов 2 Метки нет (Все метки) Помогите решить задачу: Заполнить двухмерный массив размера N*M случайными целыми числами, диапазон изменения которых вводится с клавиатуры. Вывести массив на экран. Заранее спасибо! 0

Опции темы

Заполнить двухмерный массив размера N*M случайными целыми числами

Решение