[hkdkest]

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

Imikle спасибо за разъясниние
не мог ты или кто-нибудь другой на pascal написать эту прогу
а там попытаюсь уж по ходу кода разобраться

Код:

program p1;

var
  A : Array [1..30] Of Integer;
  I, S  : Integer;

begin
  // Init array
  Randomize;
   S := 0;
  For I := 1 To 30 Do
   begin
    A[i] := Random(21) - 10; // Random from -10 to 10
     If A[i] > 0 
      Then S := S + A[i];
   end;
  // Print result
  WriteLn('Sum of all positive values is ',S);
  ReadLn; // Wait for pressing Enter
end.

Admin: Пользуемся тегами, иначе последуют санкции!