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.
От чего зависит производительность жёстких дисков? - От скорости вращения шпинделя. Объема кэш памяти. Механизмов движеня головок.Устройства размещаемые на материнской плате?- Процессор, память, слоты, штекеры, батарейки, радио электронные компоненты, датчики, вентиляторы, радиаторы.Компилятор,транслятор,отладчик- это?- Средства разработки и тестирования приложений для разработчиков. Слово транслятор очень устаревшее, только в школе его упоменают.Какие вопросы решают операционная система?- Массовое привлечение неопытных пользователей в мир ПК. Распределение ресурсов ПК для программ.Программы,работающие в момент включения компьютера- Аппаратные тестовые программы. загрузчики. запуск ОС.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
