1) дан массив целых чисел,состоящий из 10 элементов. Заполнить его с клавиатуры. Вывести на экран только те числа,для которых из значение больше номера
10-11 класс
|
их индекса. Помогите пожалуйста,срочно надо!!!((
var
m : array [1..10] of Integer;
i : Integer;
begin
Writeln('Введите массив:');
for i := 1 to 10 do
begin
Write(i, ': ');
Readln(m[i]);
end;
for i := 1 to 10 do
if m[i] > i then
Write(m[i], ' ');
ReadLn;
end.
Другие вопросы из категории
составить программу
через array и for
Подсчитайте количество морозных дней (когда температура ниже -20 град.).
попробую прикрепить задание.
" Выполните арифметические операции над двоичными числами"
110111011+110110110
1101110001-11011011
110010*101110
101000100110:110101
Читайте также
-Удвоенную сумму положительных элементов;
-Удалить все четные элементы массива.
Дан
массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры.
Найти:
−
сумму элементов, имеющих нечетное
значение;
1.Дан массив целых чисел, состоящий из 15 элементов. Найти: 1) сумму положительных элементов, значения которых меньше 10 2) вывести индексы тех элементов, значения которых кратны 3 и 5.
2. Определить, есть ли пара соседних элементов с суммой, равной заданному числу.
1
Дан массив целых чисел, состоящий из 20 элементов. Заполнить его с клавиатуры.
1. Найти:
- сумму элементов, имеющих нечетное значение;
- вывести индексы тех элементов, значения которых больше заданного числа А.
2. Определить, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры).
массива,значение которых больше среднего арифметического всех его элементов