Question

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.

Answer 1

Программа заполняет массив размером 10x10  случайными числами в диапазоне от 500 до 1000  ричем границы вычислаются в начале программы и больше не меняются из-за чего идёт ограничение на разброс чисел, не понятно задумка ли это или ошибка т.к нет текста задачи.

 

во второй части просто вывод части массива, в строку ..