Даны числа от -10 до 15. найти сумму положительных и произведение отрицательных..

Question

Информатика: Даны числа от -10 до 15. найти сумму положительных и произведение отрицательных..

ilacher12 · Accepted Answer

Prime := { Получаем первое слово из последовательности };
while { не конец последовательности (не известно от куда аффтар получает слова ) } do
  begin
    Slovo := { Получаем очередное слово последовательности };
    if Length(Slovo) <= Length(Prime) then
      begin
        CopyPrime := Prime;
        N := 1;
        while (N <= Length(Slovo)) and (Pos(Slovo[N], CopyPrime) > 0 do
          begin
            Delete(CopyPrime, Pos(Slovo[N], CopyPrime), 1);
            Inc(N);
          end;
        if N > Length(Slovo) then
          { Slovo можно получить из первого слова }
        else
          { нельзя получить Slovo из первого слова }
      end;
  end;

MOGZ ответил