Составить блок схему к задаче и написать программу на паскале для вычисления функции x={y+10 если y>_0
{y-8 если y<0

var

y,x: real;

begin

read(y);

if y>=0 then

x:=y+10

else

x:=y-8;

write(x)

end.

Const   m=5;   n=7; var   a: array[1..m,1..n] of integer;   i,j,amax: integer;   p: real; begin   randomize;   writeln('исходный массивэ');   for i: =1 to m do begin       for j: =1 to n do begin           a[i,j]: =random(90)+10;           write(a[i,j]: 3)           end;       writeln       end;   { 1}   amax: =a[1,1];   for i: =1 to m do       for j: =1 to n do           if a[i,j]> amax then amax: =a[i,j];   writeln('максимальный элемент равен ',amax);   { 2}   p: =1;   for i: =1 to m do       for j: =1 to n do           if a[i,j] mod 2=0 then p: =p*a[i,j];   writeln('произведение четных элементов равно ',p); end. пример работы исходный массивэ   94 20 49 80 70 55 40   62 74 71 51 88 10 76   68 11 11 74 96 50 69   98 34 25 93 52 53 61   68 85 35 15 77 78 97 максимальный элемент равен 98 произведение четных элементов равно 2.86826492979212e+33