Найти количество элементов массива, отличных от значения последнего элемента - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д