В массиве хранится информация о количестве осадков

uses crt; var i: integer; a: array[1… 7] of integer; beginfor 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]);