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

alyabevan02001 alyabevan02001    3   08.06.2019 18:20    0

Ответы
Jastmine42 Jastmine42  01.10.2020 22:25
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика