у мя паскаль, Составьте программу, которая формируется массив из шестнадцати…

Program ask_1; const k=-20; b=20; type MyArray=Array[1… 16]of integer; var A: MyArray; i: integer; //beginRandomize; for i: =1 to 16 do beginA[i]: =random (b-k+1); if (A[i]=0) then write (i); end; end. Поскольку в задании не сказано вывести данный массив, то в этой программе выводятся элементы с 0 значением.