Найти количество элементов массива, отличных от значения последнего элемента - Pascal

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

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

массив из 50 чисел и заполнить его случайными числами.сколько в нем элементов, отличных от последнегоелемента

Решение задачи: «Найти количество элементов массива, отличных от значения последнего элемента»

textual
Листинг программы
const n=50;
var
  a: array [1..n] of Integer;
  i, t, c: Integer;
begin
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(100); Write(' ',a[i]);
  end; WriteLn;
  t:=a[n]; for i:=1 to n-1 do Inc(c,Ord(a[i]<>t));
  WriteLn(c);
end.

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


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

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

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