Составить алгоритм !   составить алгоритм  и блок- к каждой . кто хорошо разбирается, ! 1. даны действительные числа х,у. меньшее из этих двух чисел заменить их полусуммой, а большее их удвоенным произведением.  2. даны х,у. если х,у отрицательны, то каждое значение заменить его модулем; если отрицательно только одно из них, то оба значения увеличить на 0,5; если оба знач. неотрицательны, то оба знач. увеличить в 10 раз3. даны три числа а, b, с. выяснить верно ли, что а,

Const n=15; 
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:3);
 end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
 if a[i]>sr then write(i:3);
writeln;
end.

Пример:
Массив:
  9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
  2 3 10 11 13 14 15

  Жили-были клавиатура , манитор , память и процесор . Жили они дружно пока невозник спор , кто из них главнее .Каждый из них говорил что он важнее других. Клавиатура говорила:
 -Если бы не было меня , то  человек бы не смог печатать слова и предложения!
Но манитор возражал:
-Я важнее вас! Ведь если бы меня не было то человек бы не смог увидеть экрана!
Но память твердила всем:
-Я важнее вас всех , ведь если бы меня не было , то человек бы не мог сохранять картинки , разную музыку и разные видео!
А процессор говорил :
-Я мозг компьютера! И я важнее всех потому что если бы меня не было то компьютер бы никогда не включался! И человек бы не смог просматривать диски и флешки!
Но тогда компьютер сказал им всем:
-Ребята , не ссорьтесь , все вы очень важны, и если бы не вы все , то компьютера бы не было! 
Вот на этом спор и закончился , и все начали жить дружно , как раньше!