Одномерные массивы, Помогите, пожалуйста Опции

[goosberry]

1. В списке указаны суммы вкладов n вкладчиков. Расположить эти суммы в порядке убывания сумм вкладов.
И вот что у меня получилось

 program zadacha;
uses crt;
type sum=array [1..100] of integer;
var vklad:sum;
    i,j,n,k:integer;
begin
     writeln('vvedite razmernost massiva');
     readln(n);
     for i:=1 to n do begin
     writeln('Vvedite summu vklada   ', i, '  vkadchika');
     readln(vklad[i]); end;
     for i:=1 to n-1 do
         for j:=i+1 to n do
             if vklad[i]<vklad[j] then
                begin
                     k:=vklad[j];
                     vklad[j]:=vklad[i];
                     vklad[i]:=k;
                end;
     writeln;
     writeln('Sort. summa vkladov:');
     for i:=1 to n do writeln(vklad[i]);
readkey;
end.

2. Элементы массива y(20) сформированы следующим образом: yi= 2tg(i^2), если i-чётное, cos^2(i/2)-1, если i кратно 5, i^2-10, во всех других случаях.
Найти максимальный и минимальный элементы массива y и поменять их местами.

Я вот начала писать, но что-то такая ерунда, наверное получается... я что-то с этим i элементом не очень поняла...

 
program zadacha;
uses crt;
type M=array [1..20] of real;
var
   y:M;
   i:integer;
begin
     for i:=1 to 20 do begin
     writeln('Vvedite ', i, ' element massiva');
     readln(y[i]);
     if y[i]=i div 2 then y[i]:=2*(sin(i*i)/cos(i*i));
     if y[i]=i div 5 then y[i]:=sqr(cos(i/2))-1 else y[i]:=sqr(i)-10;
   writeln(y[i]);
   end;
end.

Сообщение отредактировано: goosberry - 11.04.2009 12:19

[goosberry]

Спасибо . Я вот тоже задалась вопросом что же делать с 10 и 20...

[goosberry]

program zadacha;
uses crt;
type M=array [1..20] of real;
var
   y:M;
   i:integer;
   min, max,p:real;
begin
     clrscr;
     for i:=1 to 20 do
     begin
          if i mod 2=0 then y[i]:=2*(sin(i*i)/cos(i*i));
          if i mod 5=0 then y[i]:=sqr(cos(i/2))-1 else y[i]:=sqr(i)-10;
     end;
   max:=y[1];
   for i:=2 to 20 do
   if max<y[i] then max:=y[i];
   writeln ('max= ', max:3:3);
   min:=y[1];
   for i:=2 to 20 do
   if min>y[i] then min:=y[i];
   writeln ('min= ', min:3:3);
   for i:=1 to 20 do
   begin
        p:=min;
        if y[i]=min then y[i]:=max;    // я знаю, что тут не так
        if y[i]=max then y[i]:=p;        // но что-то не догадаюсь как по-другому осуществить замену 
        writeln(y[i]:5:5);
   end;
readkey;
end. 

Сообщение отредактировано: goosberry - 11.04.2009 12:00