Question

HELP!!
*Дан массив А целых чисел, состоящий из 20 элементов. Заполнить с клавиатуры.
1) Создать новый массив В, каждый элемент которого равен корню квадратному элемента массива А.
2)Найти сумму элементов массива с 11 по 15.
3) Найти элемент массива кратный 8 и его индекс.
4)Найти удвоенную сумму положительных элементов.
5)Вывести индексы тех элементов, значения которых больше значения предыдущего элемента( начиная со второго).
6) Определить, есть ли 2 пары соседних элементов с одинаковыми знаками.
7)Найти количество положительных элементов.
8)Вычесть из положительных элементов элемент с номером 2, а к отрицательным прибавить элемент с номером 4.
9) Удалить из таблицы все элементы массива, кратные 3 или 5.
10) Поменять местами второй элемент массива и первый чётный.
Помогите пожалуйста. Срочно нужно)

Answer 1

var a:array[1..20]of integer;
    b:array[1..20]of real;
    i,s:integer;
begin
 write('massiv A: ');
 for i:=1 to 20 do
  begin
   read(a[i]);
   write(a[i],' ');
  end;
 writeln;
 write('massiv B: ');
 for i:=1 to 20 do
  begin
   b[i]:=sqrt(a[i]);
   write(b[i],' ');
  end;
 writeln;
 for i:=11 to 15 do
  begin
   s:=s+a[i];
  end;
 write('summa elementov s 11 do 15: ',s);
end.