Начертить структурную схему алгоритма, написать и отладить программу для табуляции следующей функции и записать в таблице: написала программу, ввожу ее в паскаль. второе уравнение не решается. program primer5; var a, x, y1, y2: real; begin a: =1.5; x: =0; writeln(''); writeln('| a | x | y1 | y2 |'); writeln('|-----|----|-----|--------|'); a: =1; while a< =1.51 do begin x: =0; while x< =4.1 do begin y1: =-a*(exp(x-3*a)); y2: =-a*(1+ln(x-3*a)); writeln('|', a: 5: 2, '|', x: 4: 2, '|', y1: 4: 2, '|', y2: 8: 2, '|'); x: =x+a/2; end; writeln('|-----|----|-----|--------|'); a: =a+0.5 end; end.

Program gt; var a,b: array[1..1000]of integer; n,m,i,j,k,l,max1,max2: integer; begin randomize; n: =random(100)+1; m: =random(100)+1; max1: =-1; for i: =1 to n do begin a[i]: =random(1000); if(a[i]> max1)then max1: =a[i]; end; max2: =-1; for i: =1 to m do begin b[i]: =random(1000); if(b[i]> max2)then max2: =b[i]; end; if(max1> max2)then begin for i: =1 to n-1 do begin for j: =1 to n-1 do begin k: =a[j]; l: =a[j+1]; if(a[j]> a[j+1])then begin a[j]: =l; a[j+1]: =k; end; end; end; end; if(max2> max1)then begin for i: =1 to m-1 do begin for j: =1 to m-1 do begin k: =b[j]; l: =b[j+1]; if(b[j]> b[j+1])then begin b[j]: =l; b[j+1]: =k; end; end; end; end; for i: =1 to n do begin write(a[i],' '); end; writeln; for i: =1 to m do begin write(b[i],' '); end; end. здесь у меня случайный набор n-кол-во элементов в 1 массиве m-кол-во элементов в 2 массиве a[i]-первый массив max1-максимальный элемент 1-вого массива и так же для 2-го массива

Program llllll; var a: array [-10..10] of integer; n, i, b, c : integer; begin       writeln('введите количество чисел');       readln(n);       b: =0;       for i : = 1 to n do               readln(a[i]);       b: =0;       c: =1;       for i : = 1 to n do       begin               if a[i] mod 2 = 0 then                       b: =b+a[i]               else                       c: =c*a[i]       end;       writeln('это произведение ' , c);       writeln('это сумма ' , b); end.