Паскаль дано натуральные число н и действительные числа а1, а2 ан. найти минимальное и максимальное число

Var n,i:integer; a,max,min:real; 
begin
write('n = ');
readln(n);
readln(a);
max:=a; min:=a;
for i:=1 to n-1 do
 begin
 readln(a);
 if a>max then max:=a;
 if a<min then min:=a;
 end;
writeln('max = ',max:4:1,'  min = ',min:4:1);
end.

Пример:
n = 5
8.4
2.7
3.0
9.1
4.8
max =  9.1  min =  2.7

1)
var a:array [1..10] of integer;
      i,sum:integer;
begin
  randomize;
  sum:=0;
  for i:=1 to 10 do
    begin
      a[i]:=random(100)-50;
      write (a[i],' ');
      if a[i] < 0 then sum:=sum+a[i];  
    end;
  writeln;
  writeln ('Summa: ',sum);
  readln;
end.

2)
var a:array [1..10] of integer;
      i,max,index:integer;
begin
  for i:=1 to 10 do
    begin
       write ('A[',i,'] = ');
       readln (a[i]);
    end;
  max:=a[1];
  index:=1;
  for i:=2 to 10 do
    if a[i] > max then
      begin
        max:=a[i];
        index:=i;
      end;
  writeln ('Max: ',max,'.Index: ',index);
  readln;
end.

3)
var a:array [1..10] of integer;
      max,min,i,temp:integer;
begin
  randomize;
  for i:=1 to 10 do
    begin
       a[i]:=random(50);
       write (a[i],' ');
    end;
  writeln;
  max:=1;
  min:=1;
  for i:=2 to 10 do
    if a[i] > a[max] then max:=i else
      if a[i] < min then min:=i;
  writeln ('Max: ',a[max]);
  writeln ('Min: ',a[min]);
  temp:=a[min];
  a[min]:=a[max];
  a[max]:=temp;
  for i:=1 to 10 do write (a[i],' ');
end.

Pascal:
var a,b,c:real;
begin
  write ('Number 1: ');
  readln (a);
  write ('Number 2: ');
  readln (b);
  write ('Number 3: ');
  readln (c);
  writeln ('Srednee: ',(a+b+c)/3:0:4);
  readln;
end.

C++:
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
   float a,b,c;
   cout.setf(std::ios_base::fixed,std::ios_base::floatfield);
   cout <<"Number 1: ";
   cin >>a;    
   cout <<"Number 2: ";
   cin >>b;
   cout <<"Number 3: ";
   cin >>c; cout.precision(4);
   cout <<"Srednee: " <<(a+b+c)/3 <<endl;
   return 0;
}