Подсчитать, сколько элементов в массиве не совпадает с последним элементом. - Pascal
Формулировка задачи:
Подсчитать, сколько элементов в массиве не совпадает с последним элементом.
Решение задачи: «Подсчитать, сколько элементов в массиве не совпадает с последним элементом.»
textual
Листинг программы
program Project1; const n=1000; var i,s:integer; A:array [1..n] of integer; begin randomize; s:=0; for i:=1 to n-1 do begin A[i]:=random(100); if a[i]<>a[n] then inc (s); end; writeln(s); end.
Объяснение кода листинга программы
- Объявлены константа
n
равная 1000 и переменныеi
,s
типа integer. - Объявлен массив
A
типа array [1..n] of integer. - Задана необходимость выполнения программы с помощью ключевого слова
program
. - Задана инициализация генератора случайных чисел с помощью функции
randomize
. - Инициализирована переменная
s
равной 0. - Выполняется цикл
for
от 1 до n-1, где n-1 это максимальное значение индекса массиваA
. - В каждой итерации цикла присваивается случайное число из диапазона от 0 до 99 элементам массива
A[i]
. - С помощью оператора
if
проверяется условиеA[i]<>A[n]
, если оно истинно, то значение переменнойs
увеличивается на единицу с помощью функцииinc
. - После завершения цикла выводится значение переменной
s
с помощью функцииwriteln
. - Ожидается ввод данных, которые не требуются для выполнения данной программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д