Var arr : array [1..30] of integer; i, number : integer; begin //Заполнение массива случайными числами for i := 1 to 30 do arr[i] := Random(10000) - 5000; //--- //Считывание номера элемента и проверка на соответствие условию write('Введите число: '); readln(number); if not (number in [1..30]) then begin write('Ошибка. Номер элемента выходит за границу массива'); Exit; end; //--- //Вывод массива с учётом условия for i := 1 to 30 do if arr[i] > arr[number] then write(arr[i], ' '); //--- end.
Відповідь: А ВО ВТОРОМ ПРОСТО УМНОЖАЕШЬ НА K
Пояснення:
а)N=8 =>N^I=2^3 => I=3 (2 В 3 степени =8)
б)N^i=2^5 I=5
В)N^I= 2^6 I=6
Г)N^I=2^7 I=7
Д)N^I=2^8 I=8