1- Правильно ли описан массив D? Если нет, то что надо изменить? Type odm=Array[-n..n] Of Integer;

Var D: odm;

2. Что получится в результате выполнения программы?

Program Variant4;

Const n=25;

Type myarray=Array[1..n] Of Integer;

Var A: myarray;

i: Byte; p: Integer;

Begin

p:=0;

For i:=l To n Do

Begin

A[i]:=-50+Random(151);

If A[i]<=10 Then p:=p+A[i];

End;

Writeln(p);

Readln;

End.

3. Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры. Найти:

удвоенную сумму положительных элементов;

и вывести индексы тех элементов, значения которых больше значения предыдущего элемента (начиная со второго).

4. Определить, есть ли две пары соседних элементов с одинаковыми знаками.

Привет всему 12 "А" классу(Реальному).Я знаю, зачем вы тут, и я вам Вы знаете меня, как Anxel09.

var a,b,sum,i : integer;  

begin

 readln(a,b);

 if (a < 0) or (a > 10) then

   while (a < 0) or (a > 10) do begin

       writeln('Число ''a'' не подходит: ');

   readln(a);

   end;

 if (b < 0) or ( b > 10) then

       while (a < 0) or (a > 10) do begin

   

       writeln('Число ''b'' не подходит: ');

   readln(b);

   end;

sum := 1;

   

 for i:= 1 to b do

   sum:= sum * a;

 writeln('Число ''а'' в степени ''b''',' = ', sum );

 

end.

Вот и все!

Объяснение:

Сколько бы ни размышляли философы над перспективами
информационного общества, о сущности информационно-компьютерной революции, философия остается верной сама себе и выполняет лишь ей присущую функцию, только когда она занимается человеком. 
То, что мы привыкли называть Человеком, совпадает с понятием общество. Но помимо этого абстрактного родового существа, обитающего в философских трактатах, статистически усредненного и обобщенного, наш мир населен обычными, нормальными, живыми людьми. Эти люди живут и умирают, борются, побеждают, терпят поражения, занимаются бизнесом, работают на заводах и в конторах, ленятся, бездельничают, рожают детей, страдают от болезней и старости, обладают властью или сопротивляются ей, занимаются наукой и философией или бедствуют в полном невежестве в глухих трущобах. Я думаю написала неправильно все таки сам проверь)