Max:=1; min:=1;
for k:=2 to n do begin
if a[k]>a[max] then max:=k;
if a[k] < a[min] then min:=k
end;
writeln ('max=', a[max]);
writeln ('min=', a[min]);
if max < min then writeln ('max раньше')
else writeln ('min раньше')
<span>алг квадратное уравнение
нач
вещ a, b, c, D, x1, x2
ввод a
ввод b
ввод c
D := b**2 - 4*a*c
вывод "D = ", D, нс
если D > 0 то
x1 := (-b + sqrt(D)) / (2 * a)
x2 := (-b - sqrt(D)) / (2 * a)
вывод "x1 = ", x1, нс
вывод "x2 = ", x2, нс
иначе
если D = 0 то
x1 := -b / (2 * a)
вывод "x = ", x1, нс
иначе
вывод "корней нет", нс
все
все
кон</span>
Математической модели....................
1)Алгоритм в паскале, если все скорости известны
program avto;var a,b,c,d:real;beginwriteln ('Введите 3 скорости автомобиля');read (a,b,c);d:=(a+b+c)/3;write ('Средняя скорость автомобиля:', d);end.
Var a,b,c:integer;
begin
read(a,b,c);
if (a>=0) and (b>=0) and (c>=0) then
writeln(sqrt(a)+sqrt(b)+sqrt(c))
else
writeln('Одно из чисел отрицательное');
<span>end.</span>