тема: Одномерный массив 1) составить текст программы 2) нарисовать блок схему Дан…

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