Определить самую длинную последовательность подряд идущих нулей в заданном одномерном массиве. программа нужна в !

program asdassg; uses crt; var a: array [1..10]of integer; i,lmax,l: integer; beginwriteln('vvedite elementu vectora') ; for i: =1 to 10 do read (a[i]) ; for i: =1 to 10 do write (a[i],' ' ); writeln; lmax: =0; l: =0; for i: =2 to 10 do begin if (a[i]=a[i-1]) and (a[i]=0) then l: =l+1 else l: =1; if l> lmax then lmax: =l; end; writeln('samaya dlinnaya posledovatelnost 0 =',lmax); end.

 

Способ с циклами: program test ; var d, a, : real; n, i: integer; begin write ('введите a1: '); readln(a) ; write(' введите шаг арифм. прогресии: '); readln(d); write('введите номер члена арифм. прогресии: '); readln(n); for i: =1 to n do a: =a+d; writeln(n, ' член арифметической прогресии равен : ', a); end. способ без циклов: program test ; var d, a, : real; n, i: integer; begin write ('введите a1: '); readln(a) ; write(' введите шаг арифм. прогресии: '); readln(d); write('введите номер члена арифметической прогресии: '); readln(n); writeln(' ответ: ', a+d*(n-1)); end.

Program znanija; var a: array[1..20] of integer;     i,k,min,n: integer; begin min: =1000000000; // прощу прощение за такое )  for i: =1 to 20 do  a[i]: =random(9); // заполняем массив  for i: =1 to high(a) do  // находим минимальное нечётное, запоминаем его номер if (a[i] < min) and (a[i] mod 2 < > 0)  then begin n: =i; min: =a[i]; end;     for i: =1 to 20 do  write(a[i]: 3);       // выводит весь массив  writeln();   // просто перевод на новую строку для красоты  writeln('minimum: ',min,' ego nomer: ',n); // выдаём минимальное и его номер end.