Информатика | 10 - 11 классы
Задан одномерный массив А(N) (N< ; = 60).
На место минимального элемента массива записать сумму последних К элементов массива.
Если А[1]> ; = 0, то умножить все элементы этого массива на квадрат минимального элемента данного вектора, а если А[1]< ; 0, то умножить все элементы на квадрат максимального элемента вектора.
Полученный массив распечатать.
Значение К вводится пользователем.
Помогите пожалуйста?
Помогите пожалуйста.
Вот задача : Дан одномерный массив, состоящий из 10 элементов.
Определить минимальный элемент этого массива.
Дан одновременный массив, состоящий из 10 эллементов?
Дан одновременный массив, состоящий из 10 эллементов.
Пользователь вводит элементы массива.
Ввести массив на экран в строку.
Найти минимальный элемент массива.
Ниже приведен рекомендованный вид экрана во время выполнения программы : Вывод минимального элемента массива Ввод элементов массива Введите 1 элемент массива : 1 Введите 2 элемент массива : 2 Введите 3 элемент массива : 3 и т.
Д. до 10.
Сформулируйте массив содержащий 15 элементов, с помощью датчика случайных чисел?
Сформулируйте массив содержащий 15 элементов, с помощью датчика случайных чисел.
Получите новый массив, каждый элемент которого равен квадрату соответствующего элемента исходного массива.
В полученном массиве определите насколько максимальный элемент исходного массива отличается от минимального элемента нового массива.
Выведите на экран исходные и полученные результаты.
Дан массив с 50 элементами?
Дан массив с 50 элементами.
Найти максимальный элемент массива.
Используйте для ввода элементов массива функцию Random(x).
Найти среднее арифмитическое элементов массива из 10 элементов и записать его на место минимального элемента?
Найти среднее арифмитическое элементов массива из 10 элементов и записать его на место минимального элемента.
(с + + ).
Дан одномерный массив, состоящий из вещественных элементов?
Дан одномерный массив, состоящий из вещественных элементов.
Найти сумму элементов массива, расположенных до последнего положительного элемента.
Помогите написать программу В одномерном массиве, состоящем из 15 вещественных элементов (значения элементов массива задать случайными числами из интервала [ - 10 ; 10]), вычислить произведение элемен?
Помогите написать программу В одномерном массиве, состоящем из 15 вещественных элементов (значения элементов массива задать случайными числами из интервала [ - 10 ; 10]), вычислить произведение элементов массива, расположенных между максимальным и минимальным элементами.
Сформировать из этих элементов новый массив.
Дан массив А(n)?
Дан массив А(n).
Уменьшить все его элементы на минимальный элемент массива.
Помогите?
Помогите!
Людиии!
1. Дан массив из 10 элементов.
Напечатать Все неотрицательные элементы массива.
2. Дан массив из 10 элементов.
Определить Минимальный элемент массива.
В одномерном массиве из 10 элементов определить местоположение минимального и максимального элементов?
В одномерном массиве из 10 элементов определить местоположение минимального и максимального элементов.
Обнулить элементы, стоящие между ними , а также вывести полученный массив.
Перед вами страница с вопросом Задан одномерный массив А(N) (N< ; = 60)?, который относится к категории Информатика. Уровень сложности соответствует учебной программе для учащихся 10 - 11 классов. Здесь вы найдете не только правильный ответ, но и сможете ознакомиться с вариантами пользователей, а также обсудить тему и выбрать подходящую версию. Если среди найденных ответов не окажется варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском», который откроет все похожие ответы, или создайте собственный вопрос, нажав кнопку в верхней части страницы.
Var
A : array[1.
60] of integer ;
k, i, MIN, ind, MAX, SUM : integer ;
begin
SUM : = 0 ;
readln(k) ;
randomize ;
writeln('Исходный массив : ') ;
for i : = 1 to 60 do begin A[i] : = random(15) - 5 ; Writeln('A[', i, '] = ', A[i]) ; end ;
MIN : = 32600 ;
MAX : = - 32600 ;
for i : = 1 to 60 do / / Ищем минимальный элемент begin if a[i]< ; MIN then MIN : = a[i] ; ind : = i ; end ;
for i : = 1 to 60 do / / Ищем максимальный элемент if a[i]> ; MAX then MAX : = a[i] ;
for i : = 60 downto 60 - k do / / Сумма последних kэлементов SUM : = SUM + a[i] ;
A[ind] : = SUM ;
if A[1]> ; = 0 then
for i : = 1 to 60 do begin A[i] : = A[i] * sqr(MIN) ; Writeln('A[', i, '] = ', A[i]) ; end
else for i : = 1 to 60 do begin A[i] : = A[i] * sqr(MAX) ; Writeln('A[', i, '] = ', A[i]) ; end ;
end.