Переменные в программе описания как: var a, x: integer b, y: real m , c: char n, d: stning, укажите операторы в которых по вашему мнению мнению, есть ошибки a)a: =3, 6; e)m: ='1'; b)b: =-2.9; f)x: =-32842; c)c: ='да'; g)y: =7.0; d)d: =24; h)n: =школа'

A- переменной целочисленного типа присваивается дробное число c - переменной символьного типа присваивается строка d - переменной строкового типа присваивается значение integer

Площадь трапеции определяется, как произведение полусуммы оснований на высоту трапеции. для определения высоты трапеции h по длинам её сторон (a,b,c,d, при этом a - большее основание, b - меньшее основание) в общем случае есть формула: var   a, b, c, d, h, s: real; begin   write('длина большего основания: '); readln(a);   write('длина меньшего основания: '); readln(b);   write('длины боковых сторон (через пробел): ');   readln(c, d);   h : = sqrt(sqr(c) - sqr((sqr(a - b) + sqr(c) - sqr(d)) / (2 * (a - ;   s : = (a + b) / 2 * h;   writeln('площадь трапеции равна ', s: 0: 4) end. тестовое решение: длина большего основания: 10 длина меньшего основания: 7 длины боковых сторон (через пробел): 3 5 площадь трапеции равна 23.4928

Var a: array[1.. 10000]of longint;       n,i,j,min: integer; begin   writeln('vvedite n');   readln(n);   writeln('vvedit chisla');   for i: =1 to n do read(a[i]);   min: =a[1];   for i: =1 to n do       begin        if min> a[i] then begin  min: =a[i]; j: =i; end;     end;   write(i-1); end. если n будет больше то в описании увеличь размер массива там где подчеркнуто