Составьте программу вычисления в массиве b максимального среди отрицательных элементов и его номера.

Const k=30; var b,a: array [1..k] of integer; i,m,n,k1: integer; begin for i: = 1 to k do b[i]: = random(-15,15); writeln(b); for i: =1 to k do if (b[i]< 0) then begin m: =b[i]; n: =i end; for i: =1 to k do if (b[i]< 0) and (b[i]> m) then begin m: =b[i]; n: =i end; for i: =1 to k do if (b[i]< 0) and (b[i]=m) then begin k1: =k1+1; a[k1]: =i end; writeln ('максимальный отрицательный элемент ',m); if k1> 1 then for i: =1 to k1 do writeln ('номер максимального отрицательного элемента ',a[i]) else writeln ('номер максимального отрицательного элемента ',n) end. пример: [5,8,-11,4,-6,-3,-8,10,15,13,11,-2,0,-5,-14,11,-1,-7,15,-12,-11,5,-2,15,11,0,1,7,8,14] максимальный отрицательный элемент -1 номер максимального отрицательного элемента 17 пример: [14,-4,5,-1,-14,4,-3,9,7,-15,1,9,11,-10,-1,4,1,-10,6,-13,-10,-5,1,9,9,-9,-7,-2,9,12] максимальный отрицательный элемент -1 номер максимального отрицательного элемента 4 номер максимального отрицательного элемента 15

Var i,n,max,k: integer; b: array[1..n] of integer; begin; writeln('сколько элементов в последовательности? '); readln(n); writeln('введите элементы массива'); for i: =1 to n do  begin readln(b[i]); if b[i]> max then begin  max: =b[i]; k: =i end; writeln('наибольший элемент последовательности =  ',max,'. а его порядковый номер ', k); end.

решение для pascal abc

uses graphabc;

vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.