Задачи в Паскале.

[fairy_cookies]

СРОЧНО НУЖНА ПОМОЩЬ!! В пятницу контрольная...а в голове полное отсутствие каких либо знаний о Паскале.


1. Используя оператор условного цикла, составить программу решения задач по соответствующему варианту. Все числовые результаты вещественного типа печатать с двумя знаками после запятой.
-Даны действительные числа х, у (х=у). Меньшее из них заменить их полусуммой, а большее - их удвоенным произведением.

2. Используя оператор цикла, составить программу решения задачи по соответствующему варианту. Все числовые результаты вещественного типа печатать с двумя знаками после запятой. Ввод исходных данных выполняется с клавиатуры.
-Задана вещественная матрица С (3,8). Найти сумму элементов матрицы, расположенных ниже главной диагонали.


Заранее ОГРОМНОЕ спасибо всем откликнувшимся!

[Greblin]

1.

program pr1;

var x, y, sum2, mul2: real;

begin
readln(x, y);
sum2 := (x + y) / 2;
mul2 := 2*x*y;
if (x < y) then
  begin
  x := sum2;
  y := mul2;
  end
else
  begin
  x := mul2;
  y := sum2;
  end;
writeln(x:0:2);
writeln(y:0:2);
end;

По поводу второй - юзай поиск. Такую задачу задают чуть ли не каждый день

[Alter]

Вот, вроде правильно работает, но смотри сам:

[NightFire]

hhhhhhhhhhhhhhhh