Питон (Квадратная матрица) Импортируйте numpy Определите функцию, которая принимает целое число n в - id1685776520220203 от natashaevtushenko 03.02.2022 22:08

Question

Информатика: Питон (Квадратная матрица) Импортируйте numpy Определите функцию, которая принимает целое число n в качестве параметра и возвращает квадратную матрицу размера n на n, содержащую целые числа. Ваша функция должна работать для любого значения n больше 0

natashaevtushenko · Accepted Answer

Program mass;

uses
crt;

var
mas: array [1..5, 1..6] of integer;
mas_od: array[1..6] of integer;
i, j: integer;

begin
randomize;
for i := 1 to 5 do
    for j := 1 to 6 do
      mas[i, j] := random(10)-5;

for i := 1 to 5 do
begin
    for j := 1 to 6 do
      write(mas[i, j]:4);
    writeln;
end;
writeln('');
   for i := 1 to 5 do
begin
    mas_od[i] := 1;
    for j := 1 to 6 do
    begin
      if((mas [i, j] mod 2 = 0) and (mas[i, j] > 0)) then
        mas_od[i] := mas_od[i] * mas[i, j];
    end;
end;
for i:=1 to 6 do write(mas_od[i]:4);
writeln;
end.

MOGZ ответил