Среди 15 действительных чисел, введеных с клавиатуры, подсчитать количество элементов, равных последнему, и выдать их номера на экран
Среди 15 действительных чисел, введеных с клавиатуры, подсчитать количество элементов, равных последнему, и выдать их номера на экран
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы