Даю 50 баллов.
№1
Дан массив A (15).
1. Найти кол-во ненуливых элементов
2. Поменять местами 2-ой и максимальный элементы
№2
Дан массив A(8,10)
1. Найти кол-во положительных элементов каждого столбца , результат напечатать
Ищете решение задачи по Даю 50 баллов. №1 Дан массив A (15). 1. Найти кол-во ненуливых элементов 2. Поменять местами 2-ой и максимальный элементы №2 Дан массив A(8,10) 1. Найти кол-во положительных элементов каждого столбца , результат напечатать для 10 - 11 класс? На странице вы найдете не только подробное объяснение задачи, но и обсуждения от других участников. Ответы на этот вопрос уже добавлены. Этот вопрос относится к Информатика, и помогает разобраться в теме Даю 50 баллов. №1 Дан массив A (15). 1. Найти кол-во ненуливых элементов 2. Поменять местами 2-ой и максимальный элементы №2 Дан массив A(8,10) 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.