Маленькая программка

[pLo_ua]

Зада4а:
Дано натуральне число n, цілі числа а1,..,аn Одержати суму позитивних і число негативних членів послідовності а1,..,аn.
Если не трудно уделите мне внимание пожалуйста в решении программы=)

[puporev]

sum_pos:=0;k_neg:=0;
for i:=1 to n do
if a[i]>0 then sum_pos:=sum_pos+a[i]
else if a[i]<0 then k_neg:=k_neg+1;

[JTG]

Такое? (опс, опоздал )

{$APPTYPE CONSOLE}
const n = 10;

var A: array[1..n] of integer;
    i, summOfPos, countOfNeg: integer;

begin
  Randomize;

  {заполняем массив случайными значениями -100..100}
  For i := 1 to n do
  begin
    if random(2) = 1 then A[i]:=-random(100) else A[i]:=random(100);
  end;

  {считаем}
  For i := 1 to n do
  begin
    Writeln(A[i]);
    if A[i]>0 then inc(summOfPos, A[i]) else inc(countOfNeg);
  end;

  Writeln('-----------------------');
  Writeln('Summ of positive = ',summOfPos);
  Writeln(countOfNeg, ' of ',n,' is negative');
  Readln;
end.

[pLo_ua]

Вроде ПашеТ нормально, спасибо за уделенное время!
Еще 1 зада4ка:
Дано натуральне число n, символи S1...Sn. Одержати ті символи, що належать послідовності S1...Sn, що входять у цю послідовність по одного разу.

[AVer]

Ну если я правильно перевел на свой родно, надо из последовательности выделить символы входящие в нее по 1 разу.

Const N;
Var A:array[1..N] of Char;
     I:Integer;

Function One(X:Integer):Boolean;
Var I,F:Integer;
Begin
F:=0;
For I:=1 To N Do
If A[I] = X Then Inc(F);
If F = 1 Then One:=True Else One:=False;
End;

Begin
...
For I:=1 To N Do
If One(I) Then WriteLn(A[I]);
...
End;

Еще есть похожее решение http://programmersforum.ru/showthread.php?p=47906

[mihali4]

Вроде ПашеТ нормально, спасибо за уделенное время!
Еще 1 зада4ка

Огласите, пожалуйста, весь список зада4ек...

[pLo_ua]

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

Ну если я правильно перевел на свой родно, надо из последовательности выделить символы входящие в нее по 1 разу.

Const N;
Var A:array[1..N] of Char;
     I:Integer;

Function One(X:Integer):Boolean;
Var I,F:Integer;
Begin
F:=0;
For I:=1 To N Do
If A[I] = X Then Inc(F);
If F = 1 Then One:=True Else One:=False;
End;

Begin
...
For I:=1 To N Do
If One(I) Then WriteLn(A[I]);
...
End;

Еще есть похожее решение http://programmersforum.ru/showthread.php?p=47906

Я, коне4но извиняюся ребята так как у вас отнимаю время на глупости, но просмотрел код, там какаято ошибочка с константой в начале=)) Возможно я немного глуп, так как я новичек, еще раз можно по подробно код дать!

[AVer]

А что за ошибочка?
Значение константы задается сразу:

Const N = XX;

Где ХХ - значение N.

[mihali4]

просмотрел код, там какаято ошибочка с константой в начале

Дык... константу задать надо... Точно так же, как в первой зада4ке...

[pLo_ua]

Например N=10
выдает ошибку в этой строке
If A[i] = X Then Inc(F);
Ошибка (Incompatible types)!