Question

Даю 50 баллов.


№1


Дан массив A (15).

1. Найти кол-во ненуливых элементов

2. Поменять местами 2-ой и максимальный элементы


№2


Дан массив A(8,10)

1. Найти кол-во положительных элементов каждого столбца , результат напечатать

Answer 1

===== №1 =====

begin

 var a:= ArrRandom(15, -20, 20);

 a.Println;

 Println('Ненулевых:', a.Count(p -> p <> 0));

 Swap(a[1], a[a.IndexMax]);

 a.Println

end.

===== №2 =====

begin

 var a := MatrRandom(8, 10, -99, 99);

 a.Println(4);

 Writeln;

 a.Cols.Select(col -> col.Count(p -> p > 0)).

   Foreach(p -> Write(p:4))

end.