Дан массив целых чисел состоящий из 10 элементов вывести индексы тех элементов значение которых больше заданного числа А (А вводится с клавиатуры)
5-9 класс
|
Язык программирования: Паскаль
var a:array[1..10] of integer;
i,b:integer;
begin
for i:=1 to 10 do
read(a[i]);
read(b);
for i:=1 to 10 do
if a[i]>b then write(i,' ');
end.
сам массив тоже вводится с клавиатуры?
Другие вопросы из категории
PS: использовать функцию деления по модулю:
a mod b- выдает остаток при делении числа а на число b
15 mod 2=1
15 mod 3=0
Читайте также
с клавиатуры. Найти:
-Удвоенную сумму положительных элементов;
-вывести индексы тех элементов, значения которых больше значения предыдущего элемента(начиная со второго).
2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.