Ввекторе у (m) поменять местами максимальный и минимальный элементы. мне . не в клавиатуру а просто.

// pascalabc.net 3.0, сборка 1157 от 02.02.2016 begin   var n: =readinteger('n=');   var y: =arrrandom(n,1,100); y.println(', ');   var imax: =0;   var imin: =0;   for var i: =1 to n-1 do       if y[i]> y[imax] then imax: =i       else           if y[i]< y[imin] then imin: =i;   swap(y[imax],y[imin]);   y.println(', ') end. тестовое решение: n= 12 35, 81, 48, 34, 51, 44, 97, 56, 94, 51, 11, 31 35, 81, 48, 34, 51, 44, 11, 56, 94, 51, 97, 31

1)

program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c);

if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln('              ',min); readkey; end.

 

2)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a); min: =a; for i: =1 to 2 do                       

                                                                beginreadln(a); if a< min then min: =a;                                                             end; writeln(min);

readkey;

end.

 

3)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a,b,c); if a< b then b: =a; if c< a then b: =c; writeln(b); readkey; end.

var s,r: real;

begin

  read(r);

  s: =pi*sqr(r);

  writeln(s: 0: 4);

end.