Информатика | 5 - 9 классы
Задайте массив из 10 элементов с помощью датчика случайных чисел.
Выведите на экран исходный массив и и номера тех элементов, которые расположены между наибольшим и наименьшим элементами.
Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел?
Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел.
Получите новый масив, каждый элемент которого равен среднему арифметическому соответствующего элемента исходного массива и введенного с клавиатуры числа А.
В полученном массиве найдите максимальный элемент среди элементов с нечетными номерами.
Выведите на экран исходные и полученные результаты.
Задача в Pascal ABC?
Задача в Pascal ABC.
Задайте массив из 10 элементов с помощью датчика случайных чисел.
Замените элементы массива, которые больше введенного с клавиатуры числа N.
Выведите на экран исходный и полученный массив.
Пожалуйста.
Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел?
Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел.
Получите новый массив, каждый элемент которого равен удвоенному соответствующему элементу исходного массива .
В полученном массиве найдите максимальный элемент среди элементов, номера которых кратны трем.
Выведите на экран исходные и полученные результаты.
Задайте массив из 10 элементов с помощью датчиков случайных чисел?
Задайте массив из 10 элементов с помощью датчиков случайных чисел.
Выведите на экран исходный массив и те элементы, которые больше 25.
Сформулируйте массив содержащий 15 элементов, с помощью датчика случайных чисел?
Сформулируйте массив содержащий 15 элементов, с помощью датчика случайных чисел.
Получите новый массив, каждый элемент которого равен квадрату соответствующего элемента исходного массива.
В полученном массиве определите насколько максимальный элемент исходного массива отличается от минимального элемента нового массива.
Выведите на экран исходные и полученные результаты.
Задайте массив из 10 элементов с помощью датчика случайных чисел?
Задайте массив из 10 элементов с помощью датчика случайных чисел.
Замените все отрицательные элементы на наименьший положительный.
Выведите на экран исходный и полученный массив.
Задайте массив из 10 элементов с помощью датчика случайных чисел ?
Задайте массив из 10 элементов с помощью датчика случайных чисел .
Поменяйте знаки всем четным элементам массива на протиположные .
Выведите на экран исходный и полученный массивы.
Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [ - 15, 25]?
Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [ - 15, 25].
СРОЧНООООО задайте массив из 10 элементов с помощью датчика случайных чисел?
СРОЧНООООО задайте массив из 10 элементов с помощью датчика случайных чисел.
Найдите сумму индексов элементов, которые больше среднего арифметического.
Выведите на экран исходный массив и полученную сумму.
Решить при помощи паскаль : задан одномерный массив датчиком случайных чисел состоящий из 10 элементов вывести на экран max - элемент?
Решить при помощи паскаль : задан одномерный массив датчиком случайных чисел состоящий из 10 элементов вывести на экран max - элемент.
Вы перешли к вопросу Задайте массив из 10 элементов с помощью датчика случайных чисел?. Он относится к категории Информатика, для 5 - 9 классов. Здесь размещен ответ по заданным параметрам. Если этот вариант ответа не полностью вас удовлетворяет, то с помощью автоматического умного поиска можно найти другие вопросы по этой же теме, в категории Информатика. В случае если ответы на похожие вопросы не раскрывают в полном объеме необходимую информацию, то воспользуйтесь кнопкой в верхней части сайта и сформулируйте свой вопрос иначе. Также на этой странице вы сможете ознакомиться с вариантами ответов пользователей.
Уже отвечал, но все же такое решение актуальнее :
var
ar : array[1.
10] of integer ;
max, min, i, kmax, kmin : integer ;
begin
randomize ;
max : = 0 ;
min : = 1000 ;
for i : = 1 to 10 do begin
ar[i] : = random(1000) + 1 ;
if (ar[i] > ; max) then
begin max : = ar[i] ; kmax : = i ; end else if (ar[i] < ; min) then begin min : = ar[i] ; kmin : = i ;
end ;
write(ar[i], ' ') ;
end ;
writeln() ;
if (kmax > ; kmin) then for i : = kmin + 1 to kmax - 1 do write(i, ' ')
else if (kmax < ; kmin) then for i : = kmax + 1 to kmin - 1 do write(i, ' ') ;
end.
P. S.
В решении выше есть далеко ни одна ошибка ; ).