Найдите ошибки в программе(паскаль) program zadacha var v1, t1, v2, t2, v: real; begin ; writeln (‘введите значения v1, t1, v2, t2’); readln (v1, t1, v2, t2); t = (v1*t1+v2*t2)/(v1+v2); writeln (t смеси = , t); end

Program zadacha;   var t, v1, t1, v2, t2, v: real; begin ; writeln ('введите значения v1, t1, v2, t2'); readln (v1, t1, v2, t2);   t : = (v1*t1+v2*t2)/(v1+v2);   writeln ('t смеси = ', t);   end.

Для этого нужно в цикле пробежаться по элементам mass[i] и элементам mass[30 - i], тоесть чтобы не запоминать суму элементов достаточно её сравнить с сумой каких либо других пар  (в нашом случае начало масива мы сравниваем с концом). далее создадим переменную, по каторой мы будем определять индекс элемента сума которого из соседним элементом являлась самой большой. просто для проверки запускается 2 цикла в которых будет индекс инкрементироваться, не важно в конце или в начале этот элемент. в цикле где есть этот элемент делаем проверку, найшли ли мы нужный элемент, если да, то записуем значение индекса в переменную, далее записуем проверку, на равенство индекса и переменной, что не даст нам изменить значение нужного индекса до тех пор, пока мы не найдем нужный,  а индекс декрементируем, он все равно будет не изменен, по скольку в начале цыкла мы его увеличиваем на 1. примерно все!   c++ . . int main {  int mass[30]; int i,counter, j; for(i = 0,i< 30; i++) {cout< < "your mass:   "< < mass[i] = rand%100< < endl;   // делаем заполнение масива случайными числами  от 0 до 100    } //делаем собственно проверку for(i=0; i< 30; i++) {           for(j=0; j< 30; j++)           {           if  (mass[i]+mass[i+1]< mass[30-j]+mass[30-j-1]){             counter=j;               j--;             }               else {counter = i;                 i--;           } } cout< < "your max element :   "< < mass[counter]; } getch(); return 0;

1)var n: longint; begin readln(n); if n mod 5=0 then writeln('число n является кратным чилслу 5')else writeln('чило n не является кратным числу 5' ); end. 2) var a,b,c: longint: begin readln(a,b,c); if (a+b)div 2=c then writeln('число c является средним арефметическим чисел a и b') else writeln(' число c является средним арефметическим чисел a и b') else writeln('число c не является средним арефметическим чисел a и b '); end. 3) var a: longint; begin write('сколько вам лет? '); readln(a); if a< 14 then write('вам еще рано получать паспорт? ') else write('поздравляю! вы гражданин россии! '); end. 4) var a: extended; begin readln(a); if (a> 36)and(a< 37) then writeln('вы здоровы') else writeln('вы больны'); end.