Работа с массивами (pascal)

[Стасссс]

Здравствуйте уважаемые посетители и программисты форума. я нуждаюсь в вашей помощи. на днях мне дали вот такую контрольную от нее зависит многое:
1.Дан массив А(50), заполненный случайными числами. Вывести сумму всех элементов массива мень ших 15.
2.Дан массив В(15). Элементы массива вводятся с клавиатуры. Упорядочить данный массив по возрастанию.
3.Дан двумерный массив С(N,M). Вывести разность максимального и минимального элементов данного массива.
Все это в Паскаль

[Razorishe]

1:

 uses crt;
 const n=50;
 var mas:array[1..n] of integer;
     i:byte;
     sum:integer;
 begin
  clrscr;
  randomize;
  for i:=1 to n do
   begin
    mas[i]:=random(100);
    write('  mas[',i,']=',mas[i])
   end;
  for i:=1 to n do
   if mas[i]<15 then sum:=sum+mas[i];
  writeln;
  write('Summa=',sum);
  readln
 end.

[Стасссс]

Огромнейшее спасибо

[Стасссс]

Посмотрите пожалуйста №2 и 3

[ponchikpk]

3:

uses crt;
const n=10;
m=10;
var c:array[1..n,1..m] of integer;
dif,max,min,i,j:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do
  for j:=1 to m do
    c[i,j]:=random(100);
max:=c[1,1];
min:=c[1,1];
for i:=1 to n do
  for j:=1 to n do
    begin
    if c[i,j]<min then min:=c[i,j];
    if c[i,j]>max then max:=c[i,j];
    end;
dif:=max-min;
for i:=1 to n do
  begin
  for j:=1 to n do
    write(c[i,j]:3);
  writeln;
  end;
writeln;
writeln('max=',max);
writeln('min=',min);
writeln('dif=',dif);
readkey;
END.

[Razorishe]

2:

 uses crt;
 const n=15;
 var mas:array[1..n] of real;
     i:byte;
     b:boolean;
     a:real;
 begin
  clrscr;
  for i:=1 to n do
   begin
    write('mas[',i,']=');
    readln(mas[i])
   end;
  repeat
   b:=false;
   for i:=1 to n-1 do
    if mas[i]>mas[i+1] then
     begin
      b:=true;
      a:=mas[i];
      mas[i]:=mas[i+1];
      mas[i+1]:=a
     end
  until not(b);
  for i:=1 to n do
  writeln('mas[',i,']=',mas[i]:4:2);
  readln
 end.

[Razorishe]

В первом задании замените Mas на A, во втором - на B, при выводе.

[Стасссс]

Большущие спасибо