2 задачи на одномерные массивы

[spankyham]

агаг.........сумма там 0 получается постоянно......так и должно быть????

[spankyham]

program zadanie10;
uses crt;
const n=19;
type  arr=array[0..n] of integer;

procedure fill_arr(var a:arr);
var i:integer;
begin randomize;
      for i:=0 to n do a[i]:=25-random(51);
      end;
var
   a:arr; i:integer; s:integer;

begin
      clrscr;
      fill_arr(a);
      s:=0;
      for i:=2 to n do
      write(a[i]:6);
      writeln;
      writeln('s=',s:6);
      readln;
end.

[__STDC__]

а

 for i:=2 to n do
 if a[i]>sqr(a[1]) then s:=s+a[i];

куда подевалось?

[spankyham]

да, ступил я

program zadanie10;
uses crt;
const n=19;
type  arr=array[0..n] of integer;

procedure fill_arr(var a:arr);
var i:integer;
begin randomize;
      for i:=0 to n do a[i]:=25-random(51);
      end;
var
   a:arr; i:integer; s:integer;

begin
      clrscr;
      fill_arr(a);
      s:=0;
      for i:=2 to n do
      if a[i]>sqr(a[1]) then
      s:=s+a[i];

      for i:=1 to n do
      write(a[i]:6);
      writeln;
      writeln('s=',s:6);
      readln;
end.

вот......терь сумма меняется....только часто нулю равна всё равно....

[__STDC__]

попробуй выводить массив (как в предыдущем примере) и проверь... она всегда будет равно нулю если первый элемент по модулю больше или равен 5 (если массив заполнен числами до 25 включительно)

[spankyham]

хм......значит правильно?

[__STDC__]

проверь же.... это уже несложно совсем.. чуть-чуть подумать

[spankyham]

....................

[__STDC__]

не получается?

[-HunteR-]

Модераторы, пожалуйста, удалите этот пост.
Я забыл перейти на следующую страницу и ответил на последний пост на первой.
Извиняюсь.