[MushGUN]

вот задание:
сформировать массив из 30 элементов случайный образ от -10 до 10
найти сумму положительных чисел
вот моя прога но на паскале

Код:

program p1;
var i,b,c,e,f:integer;
a:array [1..30] of integer;
begin
randomize;
for b:=-10 to 10 do
a[i]:=random(b);
begin
if a[i]>0 then
c:=c+a[i];
end;
writeln(c);
end.

выход за границы диапазона изменения индекса 1..30 (Program1.pas, строка 7)
как справиться с диапозоном если моно напишите прогу или разъясните
без разницы что на Delphi что на Pascal
но желательно на Paskal

[lmikle]

Чего-то здесь явно не хватает в коде...

строка 6 - у тебя массив от 1 до 30, а цикл - от -10 до 10.
строка 7 - ты к какому элементу массива обращаешься??? i кто инициализировать будет.
строки 6 и 7 вместе - логический бред!!!

ну и далее в том же духе.

[lmikle]

Код:

program p1;

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

begin
  // Init array
  Randomize;
  For I := 1 To 30 Do
    A[i] := Random(101) - 50; // Random from -50 to 50

  // Sum all positive elements
  S := 0;
  For I := 1 To 30 Do
    If A[i] > 0 
      Then S := S + A[i];

  // Print result
  WriteLn('Sum of all positive values is ',S);
  ReadLn; // Wait for pressing Enter
end.

[MushGUN]

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

[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: Пользуемся тегами, иначе последуют санкции!

[MushGUN]

большое спасибо все понял)