Написать программы 1) В одномерном массиве с (1:10) найти количество элементов…

Программу написала в паскале, надеюсь подходит) program 1; var a: array[1… 10] of integer; i,q,max,min,l,k: integer; begin randomize; for i: =1 to 10 do begin a[i]: =random (100); write (a[i]: 3); end; writeln; for i: =1 to 10 do if (a[i]>q) and (a[i] комментировать