Тема: Структурный данный. Массивы. (Паскаль) Месяц 1 2 3 4 5 6 7 8 9 10 11 12 Темпреатура -31 -18…

Program temperature; Uses crt; Var x: array [1… 2,1… 12] of real; t,m,i: integer; z,v,l,o: real; Begin z: =0; v: =0; l: =0; o: =0; for i: =1 to 12 do x[1,i]: =i; x[2,1]: =-11; x[2,2]: =-31; x[2,3]: =-18; x[2,4]: =-7,5; x[2,5]: =5,8; x[2,6]: =10; x[2,7]: =18; x[2,8]: =22,2; x[2,9]: =24; x[2,10]: =17; x[2,11]: =5,4; x[2,12]: =-7; for i: =1 to 3 do z: =z+x[2,i]; for i: =4 to 6 do v: =v+x[2,i]; for i: =7 to 9 do l: =l+x[2,i]; for i: =10 to 12 do o: =o+x[2,i]; z: =z/3; v: =v/3; l: =l/3; o: =o/3; writeln ('Средняя температура зимних месяцев=',z: 3:1); writeln ('Средняя температура весенних месяцев=',v: 3:1); writeln ('Средняя температура летних месяцев=',l: 3:1); writeln ('Средняя температура осенних месяцев=',o: 3:1); End.Program num2; Uses crt; Var x: array[1… 100] of integer; i, n: integer; Begin clrscr; write ('N='); readln (n); for i: =1 to n do begin write ('x[',i,']='); readln (x[i]) end; for i: =1 to n do if x[i]<0 then writeln ('x[',i,']<0 and x[',i,']=',x[i]); End.