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

Question

Информатика

Праскеда

1 мая, 18:30

Арус массив 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.