Вводится число а и 7 целых чисел, определить, каким по счету в последовательности будет число а , если его нет, то вывести ноль решите способом паскаля

program pr; uses crt; var a,b,x1,i: integer; beginx1: =0; writeln('vvedite chislo'); readln(a); writeln('vvedite posledovatelnost'); for i: =1 to 7 dobeginreadln(b); if a=b then x1: =i; end; writeln('¹=',x1); readln; end.

 

если номер последовательность выводить нужно каждый раз когда встречается то число тогда так

 

 

program pr; uses crt; var a,b,x1,i: integer; beginx1: =0; writeln('vvedite chislo'); readln(a); writeln('vvedite posledovatelnost'); for i: =1 to 7 dobeginreadln(b); if a=b then writeln('¹=',i); end; readln; end.

 

 

//pascalabc.net 3.1 сборка 1200 uses system; var       n: longint; begin       var s : = new list< longint> ();       repeat               readln(n);               if n < > 0 then s.add(n);       until n = 0;             println(s);             var av : = s.average;       println(s.where(x -> x > av)); end.

< /script> alert("макс. красного: " + max); //вывод сообщения о максимальной последовательности красногоalert("частота выпадания красного: " + red1/arr.length*100+'%'); //вывод сообщения о проценте частоты красного}}redm=0; //обнуляем максимальную последовательность {} else //иначе если последовательность красного закончилась//то перезапишим максимальное число//больше максимального числа, if (redm> max) max=redm; //условие если последовательность redm++; //запиши максимальную последовательность red1++; //запиши сколько раз встретилось красноеif(arr[i]==-1){ //условие если красное то for (var i = 0; i< arr.length; i++) {//цикл подсчета выподания красногоalert(arr); //вывод массива}arr.push((math.round(math.random()*); //случайные числа от -1 до 1for (var i = 0; i < =rounds; i++) { //цикл для заполнения массиваvar max=0; //переменная для хранения максимальной последовательностиvar redm=0; //переменая для подсчёта последовательности красногоvar red1=0; //переменная для подсчёта частоты красногоvar rounds=1000000; //число раундовvar arr=[]; //обьявляем массив< script> < meta charset="utf-8">