сервис вопросов и ответовДан массив размера N. Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. Найденные номера выводить в
10-11 класс|
|
порядке их возрастания.
Shathi
24 февр. 2015 г., 1:52:11 (9 лет назад)
Syablokova2002
24 февр. 2015 г., 3:22:11 (9 лет назад)
uses crt;
var i,n,count:integer;
a:array[1..100] of integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
writeln('Номера элементов:');
for i:=1 to n-1 do
if a[i]>a[i+1] then
begin
write(i,' ');
count:=count+1;
end;
writeln(#13#10,'Всего элементов:',#13#10,count);
end.
Ответить
Другие вопросы из категории
Напишите программу для pascal
в цикле while присвоить случайные значение элементам массива вывести на экран элементы значение которых не превышают 3,2
ПАСКАЛЬ.Ввести одномерный массив A, вывести его. Переставить в обратном
порядке все элементы между максимальным и предпоследним
отрицательным элементом.
Помогите, не могу найти предпоследний элемент в массиве
В чем преимущество кода Бодо по сравнению с кодом Морзе?
В чем преимущество кода Морзе по сравнению с кодом Бодо?
Читайте также
Дан массив X(N).Найти среднее арифметическое элементов массива,значения которых заключены в интервале [-3;3]. Если эта величина больше
заданного числа Z,то найти сумму четных элементов,иначе- произведение нечетных элементов.
Друзья,очень нужна ваша помощь,пожалуйста,если Вы решили мне помочь-отпишитесь. Заранее спасибо!
1) Определите и выведите на экран количество чисел от 50 до 500, которые делятся на 11 и 13 одновременно. 2) Дан массив целых чисел, состоящий из 100
элементов. Заполнить его с клавиатуры. Найти:
а) удвоенную сумму положительных элементов;
б)вывести индексы тех элементов, значения которых больше значения предыдцщего элемента ( начиная со второго)
СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО, УМОЛЯЮ, Я УЖЕ 30 РАЗ ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НАПИШИТЕ!!!
1.Дано массив 5*5, заполнить массив случайными числами не больше 30 и найти сумму парных элементов массива, которые находятся под главной диагонали и количество не парных элементов которые находятся над главной диагонали.
Дан массив А(N) . Сформировать новый массив D(N) путем умножения отрицательных элементов массива A(N) на 25, а положительных на - 7. D новом массиве
D(N) определить количество элементов, значение которых больше 100.
№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от 0 до 100. Напишите программу, которая позволит найти сумму
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
Вы находитесь на странице вопроса "Дан массив размера N. Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. Найденные номера выводить в", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.