Две задачи на PascalABC

[lopido]

Две задачи на PascalABC

Помогите пожалуйста составить программы в pascalABC.
1.
2. Случайным образом сгенерировать 4 цулых числа из промежутка [-10,15] и вывести на печать сумму модулей максимального и минимального из этих чисел.

 

[Vladimir_S]

Помогите пожалуйста составить программы в pascalABC.

Во-первых, названия тем типа "Помогите!", "Help!!!", "Нужна помощь" и т.п. у нас, в соответствии с п.2.1 Правил, под запретом. Тема переименована.
Во-вторых, цель форума и, в частности, программистского раздела - помощь в затруднительных ситуациях, а не выполнение упражнений ясельно-детсадовского уровня за не желающих учиться товарищей.
В-третьих, ладно, так и быть, на первый раз выложу (написано и протестировано на FreePascal, за возможные глюки лже-Паскаля АВС не отвечаю).

Const
 n=10;
Var
 a0,a1:Array[1..n] of real;
 i:Integer;
 P:real;
Begin
 Randomize;
 Writeln('Initial array:');
 For i:=1 to n do
  begin
   a0[i]:=Random*10;
   write(a0[i]:8:2);
  end;
 Writeln;
 Writeln;
 Writeln('Smoothed array:');
 a1[1]:=a0[1];
 a1[n]:=a0[n];
 P:=a1[1];
 Write(a1[1]:8:2);
 For i:=2 to n-1 do
  begin
   a1[i]:=(a1[i-1]+a0[i]+a0[i+1])/3;
   write(a1[i]:8:2);
   P:=P*a1[i];
  end;
 Writeln(a1[n]:8:2);
 P:=P*a1[n];
 Writeln;
 Writeln('P= ',P:0:2);
 Readln
End.

Var
 Max,Min,a,i:Integer;
Begin
 Randomize;
 Min:=30;
 Max:=-15;
 For i:=1 to 4 do
  begin
   a:=-10+Random(26);
   if a<Min then Min:=a;
   if a>Max then Max:=a;
   write(a:6);
  end;
 Writeln;
 Writeln;
 Writeln('Result: ',Abs(Min)+Abs(Max));
 Readln
End.

 

[lopido]

Прошу прощения за нарушения правил. И огромное спасибо за помощь, завал сейчас полный, не знаю что бы без вас делала.