Для динамического массива подсчитать количество его элементов, равных первому его элементу - 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.

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

  1. Объявляются переменные: a (динамический массив), n (размер массива), i (счетчик элементов массива), k (счетчик элементов, равных первому).
  2. С помощью функции setlength инициируется динамический массив a с заданным размером n.
  3. В цикле for заполняются элементы массива a случайными значениями от 1 до 10.
  4. Выводится на экран первый элемент массива.
  5. В цикле for подсчитываются элементы массива a, равные первому элементу (не считая сам первый).
  6. Выводится на экран количество элементов, равных первому.
  7. Программа ожидает ввода данных с клавиатуры для завершения работы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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