Напишите двумерный массив с помощью функции и процедуры!

Question

Напишите двумерный массив с помощью функции и процедуры!

Comments

Побольше обьяснений можно?

---

хочу просто видеть матрицу вводимую вручную через процедуру и функцию

---

вручную?

---

т.е. через файл чтоли?

---

спасибо и так сойдет

Answer 1

Const N=5; M=6;
var A:array[1..100,1..100] of Integer;
B:integer;
function massive():integer;
begin
B:=random(-100,100);
Result:=B;
end;
procedure input(i,j:integer);
begin
For i:=1 to N do 
For j:=1 to M do 
A[i,j]:=massive();
end;
procedure
output(i,j:integer);
begin
For i:=1 to N do
begin 
For j:=1 to M do 
Write(A[i,j],' ');
Writeln;  
end;
end;
begin
input(1,1);
output(1,1);
end.

Comments

Это через рандом

---

а что обозначает input(1,1);
output(1,1);

---

это нужно для процедурки, можешь туда впаять любое целое число

---

а можешь написать только с помощью процедуры или функции чего-нибудь одного,пожалуйста?