Дан массив размерностью n. элементы вводятся случайным образом из диапазона [-15..15]. удалить в нём все элементы меньше 0 и кратные 8. вывести новый массив на экран
//PascalABC.Net 3.2 begin var a:=arrrandom (readinteger('n ='), -15, 15); a.Println; var b: array of integer; for var i:=0 to length(a)-1 do if not((a[i]<0) or ((a[i] mod 8)=0)) then begin setLength (b, length(b)+1); b[length(b)-1]:=a[i] end; b.Print; end.
using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace replaceThis{ class main{ static void Main(){ int N = 10; int[] arr = new int[N]; Random rand = new Random(); Console.Write("Исходный массив: "); for (int i = 0; i < N; ++i){ arr[i] = rand.Next(1, 9); Console.Write("{0} ", arr[i]); } Console.WriteLine(""); int maxI, minI; maxI = minI = 0; for(int i = 1; i< N; ++i){ if (arr[maxI] < arr[i]) maxI = i; if (arr[minI] > arr[i]) minI = i; } int temp = arr[minI]; arr[minI] = arr[maxI]; arr[maxI] = temp; Console.WriteLine("Индекс максимального - {0}. Индекс минимального - {1}.", maxI, minI); Console.Write("Измененный массив: "); for (int i = 0; i < N; ++i) Console.Write("{0} ", arr[i]); Console.ReadKey(); } } }
Для начала надо найти i - (сколько весит 1 символ) по формуле N=2^i Нам дано N - (мощность алфавита) 8 и 16 , эти числа подставляем по формуле получиться. 8=2^3 значит здесь i=3 (Если не понятно как я нашел это число, я просто умножал 2×2×2 получил 8 и сколько 2 потребовалось это есть число i) 16=2^4 значит здесь i=4 Дальше нам дано то что в сообщениях было по 25 знаков. Теперь чтобы найти Iобьем 2 сообщений[1-Каюмба ;2-Гаюмба] нужно (i×кол.знаков) т.е I1=3×25=75 бит I2=4×25=100 бит И здесь ясно то что 2 сообщение информативнее , а чтобы найти на сколько бит больше , надо 100-75=25бит ответ:Сообщение Гаюмбы инфоормативнее на 25 бит.
begin
var a:=arrrandom (readinteger('n ='), -15, 15); a.Println;
var b: array of integer;
for var i:=0 to length(a)-1 do if not((a[i]<0) or ((a[i] mod 8)=0)) then begin
setLength (b, length(b)+1);
b[length(b)-1]:=a[i]
end;
b.Print;
end.