Составьте программу вычисления площади треугольника с основанием а и высотой h.

Uses crt; var a,h: real; begin read(a,h); a: =a*0.5*h; write(a); end.

После do точку с запятой ставить не надо uses crt; var       i, j: integer; begin       randomize;       for i : = 1 to 20 do       begin       writeln(i);               textcolor(green);               for j : = 1 to 20 do                       write(random(50000));                             textcolor(yellow);               for j : = 1 to 20 do                       write(random(50000));                             textcolor(red);               for j : = 1 to 20 do                       write(random(50000));       end; end.

Const     n = 4;     m = 6; var     a: array[1..n,1..m] of integer;     b: array[1..n] of integer;     i,j,k: integer;     c: real; begin writeln('введите массив: '); for i: = 1 to n do       for j: = 1 to m do               read(a[i,j]); writeln; write('введите число: '); readln(c); for i: = 1 to n do       begin       k: =0;       for j: = 1 to m do               if c< a[i,j] then k: =k+1;       b[i]: =k;       end; writeln; for i: = 1 to n do       write(b[i],' ') end. пример: введите массив: 4 6 2 6 -6 -6 5 2 7 -3 6 -3 -2 -8 -1 3 4 1 -8 -5 -4 10 -5 6 введите число: 4 2 3 0 2