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

[__STDC__]

еще i:integer; добавить в var.. забыл.. я не проверяю программы, у меня тут компилятора нету =)

var
   a:arr;
   i:integer;

[spankyham]

Index:1
Index:5
Index:7
Index:8
Index:10
Index:11
Index:12
Index:14
Index:15
Index:17

- это и есть правильное решение 1ой задачи??? там же написано определить номера элементов массива о_0

[__STDC__]

да.. это НОМЕРА элементов массива... учитывая что нумерация с нуля то это второй, шестой, восьмой, девятый...восемнадцатый номер в последовательности чисел
для вывода элементов массива надо делать так

for i:=0 to n do writeln(a[i]:3);

[spankyham]

ужоснах) спс огроменное вам) а во второй задаче условие ведь тоже самое почти, только размерность не дана......и за n что тогда брать??

[spankyham]

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

for i:=0 to n do writeln(a[i]:3);

это куда?))

[__STDC__]

во второй задаче шапка программы абсолютная такая же.. n - произвольная константа, она выше определяется (const n=...)
это между нижними begin и end. после вызова fill_arr

во второй задаче нужно код, написанный IT-man'ом, вставить вместо моего между begin и end. (после fill_arr) и не забыть объявить переменную s

[spankyham]

агаг, спасибо.....тока теперь вот что получается:
21
-2
11
-12
-11
-2
16
-14
7
-8
-9
2
15
18
-20
-1
-16
7
-22
Index:19
только иногда Index не выводится.......

[__STDC__]

покажи код который получился...

[spankyham]

program zadanie9;
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;

begin
      clrscr;
      fill_arr(a);
      for i:=0 to n-1 do writeln(a[i]:3);
      if (a[i+1]>a[i]) then
      writeln('Index:',i+1);
      readln;
end.

это я 1ую задачу....

[__STDC__]

program zadanie9;
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;

begin
      clrscr;
      fill_arr(a);
      for i:=0 to n do writeln(a[i]:3);
      for i:=0 to n-1 do 
      if (a[i+1]>a[i]) then
      writeln('Index:',i+1);
      readln;
end.

так должно быть