Question

Вопрос к тем,кто шарит в программировании (по паскалю) : скласти програму,що дозволяє в одновимірному масиві,що складається з N речових елементів,обчислити кількість елементів масиву,рівних першому елементу

Answer 1

Program array;
var
    arr: array of real;
    i: integer;
begin
randomize; {в даному прикладі використано випадкові дійсні числа від 0 до 1}
write('введіть n: ');
readln(n);
SetLength(arr, n);
for i:= 0 to n do
arr[i] := random;
for i:= 1 to n do
if arr[i] = arr[0] then
write(i, ' ');
end.

Answer 2

Для розв'язання цього завдання вам знадобиться написати програму на мові програмування Pascal. Основна ідея полягає в тому, щоб пройти по всіх елементах масиву і порахувати кількість елементів, які дорівнюють першому елементу.

Ось приклад програми на Pascal, яка виконує це завдання:

program CountElements;

const
  N = 10; // Кількість елементів у масиві

var
  arr: array[1..N] of Integer; // Оголошення масиву
  i, count: Integer; // Змінні для ітерації та підрахунку

begin
  // Заповнення масиву
  for i := 1 to N do
  begin
    writeln('Введіть ', i, '-й елемент масиву:');
    readln(arr[i]);
  end;

// Підрахунок кількості елементів, рівних першому елементу
  count := 0;
  for i := 2 to N do
  begin
    if arr[i] = arr[1] then
      count := count + 1;
  end;

// Виведення результату
  writeln('Кількість елементів масиву, рівних першому елементу: ', count);

readln;
end.

У цій програмі ми спочатку оголошуємо масив `arr` з `N` елементами. Потім ми заповнюємо масив, проходячи по кожному елементу і зчитуючи його значення з клавіатури.

Після цього ми використовуємо цикл `for` для проходу по всіх елементах масиву, починаючи з другого елемента. Якщо поточний елемент дорівнює першому елементу, то збільшуємо лічильник `count` на одиницю.

Нарешті, ми виводимо результат - кількість елементів масиву, які дорівнюють першому елементу.

Будь ласка, спробуйте цю програму і дайте знати, якщо у вас виникають які-небудь питання!