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