Тема : Одномерный массив 1)составить текст программы 2)нарисовать блок схему Дан массив из 15 чисел.Определить номер максимального элемента в массиве,а также количество отрицательных чисел.

Ты не написала в чем решить ну я решу в паскале: Program Frank; const n=15; Type mas=array[1..n] of integer; var a:mas;max,i,k:integer; begin for i:=1 to n do begin a[i]:=random(100)+5; writeln(a[i]); end; max:=a[1]; for i:=1 to n do begin if (a[i]>max) then max:=a[i] end; writeln('Максимальное число := ',max); k:=0; for i:=1 to n do begin if a[i]<0 then k:=k+1 end; writeln("Кол-во отрицательных чисел := ",k); end.