3 задачи на delphi 7

[V0L40K_21]

помогите пожалуйста желательно код программы

[Vanta11a]

50 рублей за обе задачи. Аська для связи в профиле.

[arrowsf1]

Я меньше чем за 100 не возьмусь. Итого первая 50 вторая 100. 150

ПС
не конкурент

[nikita33321]

сэкономлю тебе 50 р)

program otr;
var a,b:array[1..100] of integer;
j,i,n,m,kol:integer;
begin
read(n);
m:=n;
for i:=1 to n do
begin
     read(a[i]);
     b[i]:=a[i];
end;
for i:=1 to n do
 if a[i]<0 then
    begin
         writeln('otr el = ', a[i]);
         kol:=0;
           for j:=i to m do
             if a[i]=b[j] then
             begin
             kol:=kol+1;
             i:=j;
             end;
         write(' povtorov = ',kol);
    end;
end.

2-ю хз как решать

[Mad_Cat]

сэкономлю тебе 50 р)

ну отрицательные ты считаешь, а где условие №подряд" рассмотрено?

[Hacker19_90]

3 задачи на delphi 7

А где третье задание?

[nikita33321]

Сообщение от Mad_Cat

ну отрицательные ты считаешь, а где условие №подряд" рассмотрено?

Не внимательно посмотрел задание, исправил
задачу решает, но не совсем правильно написан код.. наверно можно проще давно паскалем не пользовался

[V0L40K_21]

Сообщение от nikita33321

сэкономлю тебе 50 р)

program otr;
var a,b:array[1..100] of integer;
j,i,n,m,kol:integer;
begin
read(n);
m:=n;
for i:=1 to n do
begin
     read(a[i]);
     b[i]:=a[i];
end;
for i:=1 to n do
 if a[i]<0 then
    begin
         writeln('otr el = ', a[i]);
         kol:=0;
           for j:=i to m do
             if a[i]=b[j] then
             begin
             kol:=kol+1;
             i:=j;
             end;
         write(' povtorov = ',kol);
    end;
end.

2-ю хз как решать

Прошупрощения за мою наглость,не могли бы вы переписать это на delphi? заранееблагодарен

[Vanta11a]

2-ю хз как решать

Перебор х от 0 до 1 с шагом 0.2 + вывод значений, т.е. просто цикл while.

Прошупрощения за мою наглость,не могли бы вы переписать это на delphi? заранееблагодарен

Это не наглость, это тупость, ибо код и в Дельфях работать будет.

[Mad_Cat]

Не внимательно посмотрел задание, исправил

Опять таки не уверен что условие подряд реализовано верно
например
-9 -8 -7 -6 -5 подряд же?
-9 -9 -9 -9 -9 то же подряд
-9 -7 -8 -8 -6 тоже отрицательные подряд