Программа которая формирует массив из 15 случайных целых чисел от -20 до 20 и чётные исла делит на два, а нечётные-умножает на три

var

mas : array[1..15] of integer;

i: integer;

 

begin

 

for i: =1 to 15 do

begin

  mas[i] : = random(40)-20;

  if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;

  if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;

end;

 

end;

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

var

  a, b, c: integer;

  d, x1, x2: real;

begin

  writeln('введите коэффициенты квадратного уравнения: ');

  readln(a, b, c);

  d: =sqr(b) - 4*a*c;

  if d < 0 then writeln('корней нет! ')

    else if d = 0 then

    begin

      x1: =-c / b;

      writeln('корень: ', x1: 0: 2);

    end

    else

    begin

      x1: =(-b + sqrt(d)) / 2*a;

      x2: =(-b - sqrt(d)) / 2*a;

      writeln('x1 = ', x1: 0: 2);

      writeln('x2 = ', x2: 0: 2);

    end;

end.

Program triangle; var ax,ay,bx,by,cx,cy,ab,bc,ca: real; function findlong(x1, y1, x2, y2: real): real; var x,y,z: real; begin findlong: =sqrt(abs(sqr(x2-x1)+sqr(y2-; end; begin writeln('введите координаты вершины а'); readln(ax,ay); {ввод через пробел} writeln('введите координаты вершины b'); readln(bx,by); writeln('введите координаты вершины c'); readln(cx,cy); ab: =findlong(ax,ay,bx,by); bc: =findlong(bx,by,cx,cy); ca: =findlong(cx,cy,ax,ay); writeln('ab=',ab,' bc=',bc,' ca=',ca); end. если остались непонятки или нужно более подробное объяснение, то пишите в комментарии, а лучше в лс (vkcom/ilyahard)