В одномерном числовом массиве посчитайте количество элементов, по модулю меньших заданного числа Т - Pascal
Формулировка задачи:
Вроде бы легкие, но че то до меня не допирает!
1) В одномерном числовом массиве посчитайте количество элементов, по модулю меньших заданного числа Т.
2) Заполнить массив из 8 элементов таким образом, чтобы значения элементов при просмотре массива слева на право образовали:
а) убывающую последовательность,
б) возрастающую последовательность.
Кому не сложно напишите, пожалуйста...
Решение задачи: «В одномерном числовом массиве посчитайте количество элементов, по модулю меньших заданного числа Т»
textual
Листинг программы
Const N=10; Var A:Array[1..N] of Integer; I:Integer; begin For I:=1 To N do Readln(A[i]);Writeln; For I:=1 to N do If A[I]>=I Then Writeln(A[I]); end.
Объяснение кода листинга программы
- Создается константа
N
со значением 10. - Объявляется массив
A
размером от 1 доN
типа Integer. - Объявляется переменная
I
типа Integer. - Программа считывает значения элементов массива
A
с клавиатуры в цикле от 1 доN
и выводит их на экран. - Программа проверяет каждый элемент массива
A
в цикле от 1 доN
и если значение элемента больше или равно его индексу, выводит это значение на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д