Разработка в среде Turbo Pascal программы заполнения двумерного массива.
Задан двумерный массив.
1. Заполнить массив случайными только отрицательными числами
Задан двумерный массив.
1. Заполнить массив случайными только отрицательными числами
More Questions From This User See All
Answers & Comments
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.