В массиве хранится информация  о  количестве  осадков(целые числа),выпавших за  каждый  день прошедшей  недели.Вывести номера  дней,когда осадков  не  было

uses crt; var i:integer; a:array[1..7] of integer; begin for i:=1 to 7 do begin a[i]:=random(10); write(a[i]:3); end; writeln; write('Номера дней, в которые не было осадков: '); for i:=1 to 7 do begin if a[i]=0 then write(i:2); end; writeln; end. Здесь количество осадков - случайная цифра от 0 до 9. Если нужно сделать ввод чисел вместо случайных, вместо строчки  a[i]:=random(10); пишем read(a[i]);