Данные по температуре воздуха за декаду ноября хранятся в массивеюопределить, сколько раз температура опускалась ниже "-10" градусов. заполнение массива осуществить с клавиатуры.

program pr1; uses crt; var mas: array[1..30] of integer; i,p: integer; beginclrscr; for i: =1 to 30 do begin writeln('t za ',i,' den'); readln(mas[i]); end; p: =0; for i: =1 to 30 do if mas[i]< -10 then p: =p+1; writeln(p); end.

а)сумм(a5: b7)

б)срзнач(c4: c7)

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