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

var

  a: array [1..16] of integer;  //Массив из 16 целых чисел

  i: integer;

begin

  randomize;  

  write('Исходный массив:  ');

  for i:= 1 to 16 do  {Заполняем массив случайными целыми числами от -20 до 20 и распечатываем его}

  begin

    a[i]:= random(40) - 20;

    write(a[i], '  ');

  end;

  writeln;

  write('Элементы с нулевыми значениями:  ');

  for i:= 1 to 16 do  {Распечатываем элементы с нулевыми значениями через точку с запятой}

    if a[i] = 0 then write('a[', i, '] = ', a[i], '; ');

  writeln;

end.

Если все правильно, отметь решение как лучшее)