Question

арус массив Numbers[1..50] заполнен случайными числами в пределах от 1 до 100.Определить сколько элементов массива отличаются от последнего элемент

Answer 1

const N = 50;
var  
numbers: array [1..50] of integer;  
i, k: integer; 
begin 
k := 0; 
for i:=1 to N do   
numbers[i] := Random(100); 
for i:=1 to N do   
if numbers[i] <> numbers[N] then       
inc(k);   
write(k);
end.