Информатика, 9 класс

program z2; var h:array[1..30] of integer; i,k:integer; begin for i:=1 to 30 do h[i]:=random(21)-10; writeln('исходный массив: '); for i:=1 to 30 do write(h[i], ' '); writeln; k:=0; for i:=1 to 30 do if h[i]>0 then k:=k+1; writeln('колич-во дождливых дней = ',k); end.