Question

 у мя паскаль, Составьте программу,которая формируется массив из шестнадцати случайных целых чисел от -20 до 20 и:находить элементы с нулевыми значениями.

Answer 1

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