В одномерный массив вставьте некоторый элемент в заднюю позицию - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Составить программу на массивы 1. Даны массив V[1..n] и число x; определить число элементов массива V[1..n] не больших х. 2. В одномерный массив вставьте некоторый элемент в заднюю позицию. 3. Исключить из массива А1..Аn первый отрицательный элемент.

Решение задачи: «В одномерный массив вставьте некоторый элемент в заднюю позицию»

textual
Листинг программы
const n = 50;
var v:array[1..n] of integer;
cnt,x,i:integer;
BEGIN
Readln (x);
For i:=1 to n do v[i]:=Random(100);
For i:=1 to n do
  IF v[i]<=x THEN cnt:=cnt+1;
Writeln(cnt);
END.

Объяснение кода листинга программы

  1. Переменная n инициализируется значением 50.
  2. Создается переменная v типа array[1..n] of integer. Это означает, что v представляет собой одномерный массив из n элементов типа integer.
  3. Переменная cnt инициализируется значением 0. Она будет использоваться для подсчета количества элементов в массиве, которые меньше или равны x.
  4. Переменная x инициализируется значением, введенным пользователем.
  5. Для каждого i от 1 до n выполняется следующая инструкция: v[i] присваивается случайное число от 0 до 99 с помощью функции Random(100). Это гарантирует, что все элементы массива будут уникальными.
  6. Для каждого i от 1 до n выполняется следующая инструкция: если v[i] меньше или равно x, то значение переменной cnt увеличивается на 1.
  7. Выводится значение переменной cnt.
  8. Программа завершается.

Оцени полезность:

15   голосов , оценка 4 из 5
Похожие ответы