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

Question

Информатика

Оксана

17 мая, 16:57

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

+2

Ответы (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.