Program asd; Var B,C,D:array[1..2500] of integer; i,max,min,n:integer; BEGIN Writeln('Введите размерность одномерного массив D: '); Readln(n); max:=D[1]; for i:=1 to n do begin Write('Введите D[',i,']: '); Readln(D[i]); If max<D[i] then max:=D[i]; end; Writeln('Максимальный элемент в массиве: ',max); Writeln('Положительный массив B из D: '); min:=D[1]; For i:=1 to n do begin If D[i]>0 then B[i]:=D[i]; If D[i]<0 then C[i]:=D[i]; If min>C[i] then min:=C[i]; Write(B[i]:4); end; writeln; Writeln('Отрицательный массив C из D: '); For i:=1 to n do begin Write(C[i]:4); end; Writeln(); Writeln('Минимальный элемент в массиве С: ',min); END.
Const N = 12; const k = 0; var temp : array [1..N] of integer; i, min, max, count : integer; begin min := 1000; max := -1000; count := 0; {Заполнение массива данными} for i := 1 to N do begin write(i,'-й месяц: '); readln(temp[i]); if (temp[i] > max) then max := temp[i]; if (temp[i] < min) then min := temp[i]; {Если температура выше k - месяц считается теплым} if (temp[i] > k) then count := count + 1; end; writeln('Минимальная температура: ',min); writeln('Максимальная температура: ',max); writeln('Количество теплых месяцев: ',count); readln; end.
б) 9 + 7 = 2 // ложь
в) 2 + 7 = 9 // истина