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