Линейный массив содержит сведения о количестве осадков, выпавших за каждый из 12…

Program zadacha; vara: array [1… 12] of integer; i, o, k, z, j: integer; s: real; beginwriteln ('vvedite kolichestvo osadkov'); for I: =1 to 12 do read (a[I]); o: =0; for I: =1 to 12 do o: =o+a[I]; writeln ('obshee kolichestvo osadkov=',o); s: =o/12; writeln ('srednee kolichestvo=',s: 3:2); k: =0; for i: =1 to 12 doif a[I]<30 then k: =k+1; writeln ('kolichestvo zasushlivih=',k); j: =30; for I: =1 to 12 doif a[I] begin j: =[I]; z: =I; end; writeln ('samiy zasusliviy mesyac=',z); readln; end.