Даю 50 баллов.
№1
Дан массив A (15).
1. Найти кол-во ненуливых элементов
2. Поменять местами 2-ой и максимальный элементы
№2
Дан массив A(8,10)
1. Найти кол-во положительных элементов каждого столбца , результат напечатать
maxpavlutenkof:
1. массив чего ? 2. на каком языке ? 3. считать , что дан - элементы инициализированы ?
Ответы
Ответ дал:
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.
Приложения:
![](https://st.uroker.com/files/88f/88fe163263fdb48868b86e0d2db6159e.jpg)
![](https://st.uroker.com/files/57d/57d51d843bd3ab91e635f475e852f2b5.jpg)
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад