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

Question

Информатика

Велма

6 марта, 00:46

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

+4

Ответы (1)

Знаете ответ?

Алей · 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.