Question

Разработка в среде Turbo Pascal программы заполнения двумерного массива.
Задан двумерный массив.
1. Заполнить массив случайными только отрицательными числами

Answer 1

const N=3;
M=3;
var X:array [1..N, 1..M] of integer;
I, J:integer;

begin

randomize;
for i:=1 to N do
for j:=1 to M do
x [I, J]:=Random(100)-100;
for i:=1 to N do

begin
for j:=1 to M do
write (' ',x[I,J]);
writeln
end;

readln

end.