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

[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 8:19

[Айра]

Вообще, как бы одна тема - одна задача, но в первой я ошибок не нашла) Только я циклы сортировки обычно такими делала

     for i:=1 to n-1 do
         for j:=n downto i do

По второй: тебе не нужно вводить элементы вручную, нужно проверять индексы и выполнять соответствующее присваивание:

   for i:=1 to 20 do begin
     if i mod 2 = 0 then y[i]:=2*(sin(i*i)/cos(i*i))  //это если индекс четный (т.е. mod-остаток от деления равен 0)
     else if i mod 5 = 0 then y[i]:=sqr(cos(i/2))-1 //если кратен 5
            else y[i]:=sqr(i)-10; //остальное
   writeln(y[i]:6:4);
   end;

Только не понятно, что делать с 10 и 20, они ж обоим условиям удовлетворяют..

Сообщение отредактировано: Айра - 10.04.2009 20:23