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

[spankyham]

1. Дан одномерный массив размерности 20. Заполнить его случайными числами на отрезке [-25;25]. Определить номера элементов массива, значения которых больше значения предыдущего элемента. Вывести исходный массив и полученный результат на печать.
2. Дан одномерный массив. Заполнить его случайными числами на отрезке [-25;25]. Найти сумму элементов массива, больших квадрата первого элемента этого массива. Вывести исходный массив и полученный результат на печать.

[__STDC__]

1. Заполнение массива:

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;

Сейчас допишу остальное если успею до других =)
***
вторая часть первого задания:

for i:=0 to n-1 do 
	if (a[i+1]>a[i]) then writeln('Index: ',i+1);

или же

for i:=n downto 1 do 
	if (a[i]>a[i-1]) then writeln('Index: ',i);

Только учтите, что элементы в моем варианте нумеруются начиная с 0... т.е. в массиве из 20 элементов максимальным индексом будет 19
и если n=100 (как выше) то всего элементов 101... можно исправить если заменить 0 на 1 =) кому как удобней
***
Ооой.. что-то не заметил сразу что размер массива задан... исправил с учетом того, что кол-во эл-тов = 20

[IT-man]

//Дан одномерный массив. Заполнить его случайными числами на отрезке [-25;25].
// Найти сумму элементов массива, больших квадрата первого элемента этого массива.
 //Вывести исходный массив и полученный результат на печать.
 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:6);
  writeln;
  writeln('s=',s:6);

как заполнять и объявлять смотрите выше

[spankyham]

япона маааать )
пфффффффффф............не получается (((((

[spankyham]

откуда тут 51 вообще?? мне же заполнить надо на отрезке [-25,25]...??????????

[IT-man]

a[i]:=25-random(51)

random(51) - вернет случайное число от 0 до 50, а 25-random(51) как раз и будет [-25,25]! читайте доку!

[spankyham]

program zadanie9;
uses crt;
const n=19;
type  arr=array[0..n] of integer;
procedure fill_arr(var a:arr);
var i:integer;
clrscr;
begin randomize;
      for i:=0 to n do a[i]:=25-random(51);
      end;
      for i:=0 to n-1 do
      if (a[i+1]>a[i]) then
      writeln('Index:',i+1);
      end;
      readln;
end.

што не так??? можете смеяться, я реально плохо понимаю паскаль :/
ошибка у clrscr вылазит ещё....:////

[__STDC__]

clrscr;
после begin пишется
и там либо end; лишний либо begin не хватает

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;

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

[IT-man]

2spankyham вы процедуры и тело программы отличаете?

[spankyham]

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

.... for i:=0 to n-1 do - пишет Error3 - Unknown identifier

to IT-man: как видите.....:/