Тема: структурный данный.массивыпаскаль) месяц 1 2 3 4 5 6 7 8 9 10 11 12 темпреатура -31 -18 -7.5 5.8 10 18 22.2 24 17 5.4 -7 -11 1)вычислите средние температуры зимних месяцев, весенних месяцев, летних месяцев и осенних месяцев. 2)разработатьсхему алгоритма и программу, которая вводит массив из n целых чисел и выводит номера отрицательных элементов и сами эти элементы.

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.

Var   a, b, c: integer; function min_3(const a, b, c: integer): integer; var   local_min: integer; begin   if (a < b) then     local_min : = a   else     local_min : = b;       if (c < local_min) then     local_min : = c;       result : = local_min end; function max_3(const a, b, c: integer): integer; var   local_max: integer; begin   if (a > = b) then       local_max : = a   else       local_max : = b;           if (c > local_max) then       local_max : = c;   result : = local_max; end; begin   writeln('введите a, b, c -> ');   readln(a, b, c);   writeln('результат: ', min_3(a, b, c) + max_3(a, b, c), '.'); end.

Var   a: array of integer;   i, num, len, amount: integer; begin   amount : = 0; len : = 1; i : = 0; num : = -1;   write('введите последовательность чисел -> ');   repeat     setlength(a, len);     read(a[i]);     num : = a[i];     i += 1;     len += 1; // длина массива   until (num = 0);   for i : = 0 to high(a) do     if (a[i] mod 7 = 0) and (a[i] mod 2 = 0) and (a[i] < > 0) then         amount += 1;   write('количество чётных чисел, кратных 7: ', amount, '.'); end.