Среди 15 действительных чисел, введеных с клавиатуры, подсчитать количество элементов, равных последнему, и выдать их номера на экран

Question

Информатика

Степаша

7 сентября, 18:17

Среди 15 действительных чисел, введеных с клавиатуры, подсчитать количество элементов, равных последнему, и выдать их номера на экран

+3

Ответы (1)

Знаете ответ на вопрос?

Жозефина · Answer 1

Const

N=15;

Var a: array [1 ... N] of integer;

i, y : integer;

Begin

for i:=1 to N do readln (a[i]) ;

y:=0;

for i:=1 to N do

If a[i]=a[N] then

begin

y:=i;

writeln (y) ;

end;

End.