Задачи в Delphi

[klara]

№1. Найти максимальное значение переменных A,B,C,D,E которые вводятся с клавиатуры.Если MIN=A, тогда поменять местами A и D и вывести последовательность чисел A,B,C,D,E. Если MAX=E, тогда поменять местами В и Е.
Иначе найти сумму всех чисел.

№2. Ученикам 1-го класса назначается стакан дополнительного молока (200мл), если их все составляет меньше 30кг. Определить, сколько литров молока потребуется ежедневно для одного класса, состоящего из n учеников. После взвешивания вес каждого ученика вводиться в ЭВМ.

№3. Дан одномерный массив А размерностью 16. Определить минимальное значение среди четных элементов массива. Преобразовать данный массив по принципу у четных элементов от минимального значения к наибольшему, а у нечетных элементов от наименьшего значения к максимальному. Все первоначальные элементы массива вводятся с клавиатуры.

№4. Дана матрица А размером 4х5, все элементы которой различны. Упорядочить по возрастанию значений элементов строк матрицы А. Все первоначальные элементы массива вводятся с клавиатуры.

Буду очень благодарен.

[Hacker19_90]

Наработки есть какие-нибудь?

[ByAlex]

Первая -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a,b,c,d,e,t:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('Vvedite chisla:');
  Write('A = ');
  Readln(a);
  Write('B = ');
  Readln(b);
  Write('C = ');
  Readln(c);
  Write('D = ');
  Readln(d);
  Write('E = ');
  Readln(e);
  Writeln;
  if (a<b) and (a<c) and (a<d) and (a<e) then
  begin
    t:=a;
    a:=d;
    d:=t;
    write('A = ',a,' B = ',b,' C = ',c,' D = ',d,' E = ',e);
  end
  else
  if (e>a) and (e>b) and (e>c) and (e>d) then
  begin
    t:=b;
    b:=e;
    e:=t;
    write('A = ',a,' B = ',b,' C = ',c,' D = ',d,' E = ',e);
  end
  else write('Summa = ',a+b+c+d+e);
  readln;
end.

Кстати, если среди чисел а минимальное и е максимальное, то будет выполняться первое условие.

Вторая -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  A:array of Integer;
  i,n:Integer;
  kol:Real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  A:=nil;
  write('Vvedite kolichestvo uchenikov = ');
  readln(n);
  SetLength(A,n);
  Writeln('Vvedite vesa kagdogo uchenika:');
  kol:=0;
  for i:=0 to n-1 do
  begin
    write('Ves ',i+1,' uchenika = ');
    readln(A[i]);
    if A[i]<30 then
      kol:=kol+0.4
    else kol:=kol+0.2;
  end;
  A:=nil;
  Writeln('Result = ',kol:4:2,' litrov');
  readln;
end.

Проверку на правильность ввода не делал!