1. Дана двумерная квадратичная матрица A[N][N]. Запишите в данный массив случайные числа из промежутка - id1723380420230121 от sokolovvw1 21.01.2023 16:39

Question

Информатика: 1. Дана двумерная квадратичная матрица A[N][N]. Запишите в данный массив случайные числа из промежутка 1..9. Запишите недостающий фрагмент программы. from random import randint ………………………………………………………………………………. [1] a = [[0 for i in range(n)] for j in range(n)] for i in range(0,n): for j in range(0,n): a[i][j] = randint (1,9) for i in range(n): for j in range(n): …………………………………………………………………………. [1] ………………………………………………………………………… ​

sokolovvw1 · Accepted Answer

Const
n = 10;
var
a: array[1..n] of integer;
i, j, t: integer;
flag:boolean;

begin
Randomize;
Writeln('Исходный массив');
for i := 1 to n do
begin
    a[i] := random(101)-50;
    Write(a[i]:4)
end;
Writeln;
i:=1;
repeat
    flag:=true;
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; flag:=false end;
    Inc(i);
until (i>n-1) or flag;
Writeln('Отсортированный по возрастанию массив');
for i := 1 to n do Write(a[i]:4);
Writeln
end.

Тестовое решение:
Исходный массив
-32 -7   2   2 50 -33   1 31   4 -16
Отсортированный по возрастанию массив
-33 -32 -16 -7   1   2   2   4 31 50

MOGZ ответил