Всем доброго карантина я только учусь и узнаю у вас очень много! Задание:Есть глобальный массив "М" 10 на 10 целых чисел
Написать подпрограмму, которая заполнит этот массив (М) числом,
которое дадут при вызове подпрограммы (заранее неизвестно НАПИШИТЕ ВСЮ ПРОГРАММУ!
const
nmax = 100;
n = 10;
var
a: array[1..nmax, 1..nmax]of integer;
var
i, j: byte;
begin
for i := 1 to N do
begin
for j := 1 to N do
begin
A[i, j] := Random(-10, 10);
write(A[i, j]:5);
end;
writeln;
end;
end.
Тестовое решение
-2 7 -10 -3 -4 6 -6 8 0 8
10 -8 10 2 -2 7 -8 -7 5 9
-4 4 3 -8 -4 -4 -8 7 1 10
-8 3 -5 0 3 -9 -7 1 -7 -4
2 2 8 -2 1 10 -7 7 6 7
-6 -2 9 8 -4 4 -6 8 -9 10
4 -3 -4 1 5 -3 7 0 10 -4
3 2 10 -1 -3 4 7 -5 2 -3
-8 -4 -9 5 6 4 4 -2 -7 9
8 -4 0 -7 3 -6 -5 -3 3 -6