Const nx=30;var n,m,i,s,k,max,min:integer; z:array[1..nx] of integer;sr:real; begin write('введите n');read(n); max:= -100;min:= 100; for i:=1 to n do begin z[i]:= random(25)-15; if max < z[i] then begin max:= z[i];k:= i;end; if min > z[i] then begin min:= z[i];m:= i;end; write(z[i]:4);end; writeln; s:= z[k]; z[k]:= z[m]; z[m]:= s; for i:=1 to n do write(z[i]:4); writeln;writeln('max = ',max,' k =',k );writeln('min = ',min,' m =',m );end.
Квадратное уравнение имеет вид: ах^2 + bx + c = 0. (1)здесь а, b и с – коэффициенты. сначала надо вычислить дискриминант квадратного уравненияd = (b^2 – 4ac) (2)если d > 0, то квадратное уравнение имеет два корня х1 и х2. обозначим с = корень(d). то есть надо вычислить квадратный корень из d. имеем такие решениях1 = (–b + c)/(2a) и x2 = (–b – c)/(2a). (3)если дискриминант d = 0, то c = 0 и оба корня одинаковы х1 = х2 (хотя в школе обычно говорят, что имеется только одно решение) и вычисляются по формулех1 = х2 = –b/(2a). (4). эта формула следует из формулы (3) при с = d = 0.если дискриминант d меньше нуля, то корень из d вычислить нельзя, с будет мнимым числом. вообще говоря, корни есть (2 штуки), но они будут мнимыми числами. хотя в школе учат, что в этом случае корней нет. так и будем считать, что корней нет.алгоритм решения будет следующий но только здесь дискриминант d обозначен малой буквой d
{с клавиатуры вводится число до тех пор, пока не будет введено 3-х значное, сумма первых двух цифр записывается в a, сумма десятков и единиц - в b. Сравнивается какое из них больше и выводится в порядке возрастания} Uses Crt; var a,c,b:integer; begin ClrScr; repeat writeln('INPUT 3-x znachoe'); readln(b); until (b>=100)and(b<=999); a:=b div 100+(b div 10)mod 10; c:=(b div 10)mod 10+b mod 10; if a<c then writeln(a,c) else writeln(c,a); Readkey; end.
z:array[1..nx] of integer;sr:real;
begin
write('введите n');read(n); max:= -100;min:= 100;
for i:=1 to n do begin
z[i]:= random(25)-15;
if max < z[i] then begin max:= z[i];k:= i;end;
if min > z[i] then begin min:= z[i];m:= i;end;
write(z[i]:4);end;
writeln;
s:= z[k]; z[k]:= z[m]; z[m]:= s;
for i:=1 to n do write(z[i]:4);
writeln;writeln('max = ',max,' k =',k );writeln('min = ',min,' m =',m );end.