Заполнить массив к(1 то n) случайными числами из отрезка [a, b] и определить произведение нечетных элементов.

Var
  a: array of integer;
  i, N, prod: integer;
  flag: boolean;
begin
  prod := 1; flag := False;
  write('Введите N -> ');
  readln(N);
  SetLength(a, N);
  for i:=0 to High(a) do begin
    A[i] := random(10)-5;
    write(A[i], ' ');
    if (abs(A[i] mod 2) = 1) then
      prod *= A[i];
      flag := True;
  end;
  writeln();
  if (flag) then
    writeln('Произведение нечетных элементов: ', prod, '.')
  else
    writeln('В массиве нет нечетных элементов.');
end.

Var
  a: array of integer;
  i, N, prod: integer;
  flag: boolean;
begin
  prod := 1; flag := False;
  write('Введите N -> ');
  readln(N);
  SetLength(a, N);
  for i:=0 to High(a) do begin
    A[i] := random(10)-5;
    write(A[i], ' ');
    if (abs(A[i] mod 2) = 1) then
      prod *= A[i];
      flag := True;
  end;
  writeln();
  if (flag) then
    writeln('Произведение нечетных элементов: ', prod, '.')
  else
    writeln('В массиве нет нечетных элементов.');
end.

Var a, b, i, c:Integer ;

Begin

Write('a=') ;read(a) ;writeln;

Write('b=') ;read(b) ;writeln;

Write('c=') ;read(c) ;writeln;

If (a<c+b) and(b<a+c) and(c<b+a) then begin

I:=1;

Write(' Треугольник существует ') ;

End Else begin

I:=0;

Write(' Треугольник не существует ') ;

End;

If i=1 then begin

If (a>b) and(a>c) then

If sqr(a) =sqr(b) +sqr(c) then write(' Треуголинк прямоугольный')

Else write(' Треугольник не прямоугольный ') ;

If (b>a) and(b>c) then

If sqr(b) =sqr(a) +sqr(c) then write(' Треуголинк прямоугольный')

Else write(' Треугольник не прямоугольный ') ;

If (c>a) and(c>b) then

If sqr(c) =sqr(b) +sqr(a) then write(' Треуголинк прямоугольный')

Else write(' Треугольник не прямоугольный ') ;

End;

End.

Var
  a, b, c, d: real;
begin
  write('Введите коэффициенты a,b,c ');
  readln(a, b, c);
  d := sqr(b) - 4 * a * c;
  if d = 0 then
    writeln('Корень один x = ', (-b / (2 * a))
    else if d >0 then
      writeln('x1 = ',(-b + sqrt(d)) / (2 * a), ' x2 = ',(-b - sqrt(d)) / (2 * a))
    else writeln('Действительных корней нет');
end.

Тест №1

Введите коэффициенты a,b,c 1 -5 6
x1 = 3 x2 = 2

Тест №2

Введите коэффициенты a,b,c 1 2 3
Действительных корней нет

Тест №3

Введите коэффициенты a,b,c 1 0 0
Корень один x = 0