Дана матриця цілих чисел розміром 5x3. Замінити всі негативні елементи матриці ** нулі, а...

Question

Дана матриця цілих чисел розміром 5x3. Замінити всі негативні елементи матриці на нулі, а позитивні на «1». Вивести вміст матриці до обробки і після обробки. Скласти програму на мові програмування Pascal.

Answer 1

// PascalABC.NET

begin

 var a := MatrRandom(5, 3, -99, 99).Println;

 a.Transform(p -> p > 0 ? 1 : 0);

 Writeln;

 a.Print

end.