1) Задан массив A(N). Подсчитать число различных по значению элементов. 2) Найти наименьший элемент массива размером МхN, элемен
1) Задан массив A(N). Подсчитать число различных по значению элементов. 2) Найти наименьший элемент массива размером МхN, элементы которого вводятся с клавиатуры.
// PascalABC.NET 3.2, сборка 1488 от 21.06.2017 // Внимание! Если программа не работает, обновите версию!
№1
begin var a:=ArrRandom(ReadInteger('n='),-5,5); a.Println; Writeln('Количество различных злементов равно ', a.Distinct.Count) end.
Пример n= 20 -1 -1 5 -3 0 5 5 -5 -2 -4 -1 -2 -2 -2 2 -2 -3 1 2 1 Количество различных злементов равно 9
№2
begin var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('Вводите элементы построчно'); var t:=ReadMatrInteger(m,n).ElementsWithIndexes.MinBy(x->x[0]); Writeln('Минимальный элемент A[',t[1]+1,',',t[2]+1,']=',t[0]) end.
Пример Количество строк и столбцов в массиве: 3 4 Вводите элементы построчно 5 -11 0 9 12 7 -12 0 8 23 6 20 Минимальный элемент A[2,3]=-12
Для начала найдем вес одного символа. 6*1024*8=49152 бит.Вес одного символа равняется 49152/6144=8 битN=2^i, где i - вес одного символа, N - количество символов в алфавите.N=2^8=256 символов