Program massiv;
var
a: array [1..50,1..50] of real;
i,j,m,n: integer;
begin
writeln ('ввод количество строк');
read (n);
writeln ('ввод количество столбцов');
read (m);
for i:=1 to n do
begin
for j:=1 to m do
a[i,j]:=random(10);
write (a[i,j]:5);
end;
end.
Как сделать матрицу? помогите,пожалуйста
var
a: array [1..50,1..50] of real;
i,j,m,n: integer;
begin
writeln ('ввод количество строк');
read (n);
writeln ('ввод количество столбцов');
read (m);
for i:=1 to n do
begin
for j:=1 to m do
a[i,j]:=random(10);
write (a[i,j]:5);
end;
end.
Как сделать матрицу? помогите,пожалуйста
More Questions From This User See All
Answers & Comments
Verified answer
Program massiv;var
a: array [1..50, 1..50] of real;
i, j, m, n: integer;
begin
writeln('ввод количество строк');
read(n);
writeln('ввод количество столбцов');
read(m);
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(10);
write(a[i, j]:5);
end;
writeln;
end;
end.