1)Изложите алгоритм 2)задумку 3) пояснительная записка :)( Нужно все оень и очень развернуто, алгоритм- прямо по строчкам что ,как и зачем)
____
var
a: array[1..10, 1..10]of integer;
i, j, min, max: integer;
begin
randomize();
min := random(500);
max := min + random(500);
write('[', min, ', ', max, ']');
for i := 1 to 10 do
begin
writeln();
for j := 1 to 10 do
begin
a[i, j] := min + random(max - min);
write(a[i, j]:5);
end;
end;
writeln();
for i := 3 to 8 do
begin
writeln();
for j := 3 to 8 do
write(a[i, j]:5);
end;
end.