Для динамического массива подсчитать количество его элементов, равных первому его элементу - Free Pascal (1034)
Формулировка задачи:
Для динамического массива подсчитать количество его элементов, равных первому его элементу.
Решение задачи: «Для динамического массива подсчитать количество его элементов, равных первому его элементу»
textual
Листинг программы
uses crt; var a:array of integer; n,i,k:integer; begin clrscr; randomize; write('Размер массива n='); readln(n); setlength(a,n); for i:=0 to n-1 do begin a[i]:=random(10); write(a[i]:5); end; writeln; k:=0; for i:=1 to n-1 do if a[i]=a[0] then k:=k+1; write('Количество элементов, равных первому=',k);{сам первый не считаем} readln end.
Объяснение кода листинга программы
- Объявляются переменные: a (динамический массив), n (размер массива), i (счетчик элементов массива), k (счетчик элементов, равных первому).
- С помощью функции setlength инициируется динамический массив a с заданным размером n.
- В цикле for заполняются элементы массива a случайными значениями от 1 до 10.
- Выводится на экран первый элемент массива.
- В цикле for подсчитываются элементы массива a, равные первому элементу (не считая сам первый).
- Выводится на экран количество элементов, равных первому.
- Программа ожидает ввода данных с клавиатуры для завершения работы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д