Заполнить матрицу 5х5 случайными числами в интервале [-15,25] и вывести ее на экран вывести на экран - id1039692020201224 от luiza2010 24.12.2020 14:08

Question

Информатика: Заполнить матрицу 5х5 случайными числами в интервале [-15,25] и вывести ее на экран вывести на экран главную диагональ квадратной матрицы

luiza2010 · Accepted Answer

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('*** Матрица А ***');
var a:=MatrRandom(4,7,-50,50); a.Println(4);
Writeln('*** Матрица B ***');
var b:=MatrRandom(4,7,-50,50); b.Println(4);
Writeln(4*a.ColCount*'-');
Writeln('*** Матрица А-B ***');
for var i:=0 to 3 do begin
    for var j:=0 to 6 do Write(a[i,j]-b[i,j]:4);
    Writeln
    end;
end.

Пример
*** Матрица А ***
11 -12 -37 22   3 -8 16
-2 21 31   4 -1 13 20
18 -42 -46 -17 19   8 -14
-26 -32 -2 31 -26 -43 -31
*** Матрица B ***
13 -14 12 -37   2 -12 34
26 25 -47   2 -42   1 -43
44 -6 -1 24 37 -9 -3
-30   3 -29 -39 -11 -8 -14

*** Матрица А-B ***
-2   2 -49 59   1   4 -18
-28 -4 78   2 41 12 63
-26 -36 -45 -41 -18 17 -11
   4 -35 27 70 -15 -35 -17

Заполнить матрицу 5х5 случайными числами в интервале [-15,25] и вывести ее на экран вывести на экран главную диагональ квадратной матрицы

MOGZ ответил