[[ncux]]

скажите пажалуйста, сможите вы мне помоч в программировании на паскале или нет? Мне срочно прям позарез нужно сделать две простые задачи( для тех кто шарит канеш)........кто сможет я сразу дам задание...
RaiDeR@jabber.mir.ru в чат....помагите плз!!!!

[Mad DeviL]

Пашок... С тя Ящик ПЫВА... и я напишу те чё угодно

[[ncux]]

Спасибо..........

[[ncux]]

1) Вычислить суммуряда S=sin(1)+sin(2)+... +sin(n), для n введённого с клавиатуры.



2) Дан массив А состоящий из 20 целых чисел. Отсортируйте его по убыванию.
Введите с клавиатуры 2 контрольных числа a и b. Определите наличие в массиве чисел, лежащих в диапозоне от a до b.
В положительном случае выведите найденные числа и их индексы в массиве на экран.

[Rembo]

PHP код:

var s:real;
i,n:integer;
begin
writeln('Введите N');
readln(n);
for i:=1 to n do s:=s+sin(n);
writeln(s:2:4);
readln;
end. 

первая...

PHP код:

const n=10;
const max_rand=20;
var mas:array[1..n] of integer;
i,i2:integer;
tmp_v,c_min,min:integer;
a,b,c:integer;
begin
randomize;
for i:=1 to n do mas[i]:=random(max_rand);

writeln('Введите A и B');
readln(a,b);
if b<a then
begin
 c:=a;
 a:=b;
 b:=c;
end;
for i:=1 to n-1 do
begin
    min:=mas[i];
    c_min:=i;
    for i2:=i+1 to n do
    begin
      if (mas[i2]<=min) then
      begin
        c_min:=i2;
        min:=mas[i2];
      end;
    end;
    tmp_v:=mas[i];
    mas[i]:=min;
    mas[c_min]:=tmp_v;
end;
for i:=1 to n do
     if (mas[i]>=a) and (mas[i]<=b) then writeln(i,'-',mas[i]);
readln;
end. 

вторая...

[[ncux]]

Rembo спасибо те огромное!!!! Я даж и не знаю как тя отблагодарить!!!
я у тя в долгу пиши мне в личку....Спасиб те

[Rembo]

Да лан, рад помоч...а вот спасибку бы не помешало
P.S если на старом скине то лан, там нет такой кнопки..))

[Mad DeviL]

Рембо отнял у меня Пиво! =)