*дан массив а целых чисел, состоящий из 20 элементов. заполнить с клавиатуры. 1) создать новый массив в, каждый элемент которого равен корню квадратному элемента массива а. 2)найти сумму элементов массива с 11 по 15. 3) найти элемент массива кратный 8 и его индекс. 4)найти удвоенную сумму положительных элементов. 5)вывести индексы тех элементов, значения которых больше значения предыдущего элемента( начиная со второго). 6) определить, есть ли 2 пары соседних элементов с одинаковыми знаками. 7)найти количество положительных элементов. 8)вычесть из положительных элементов элемент с номером 2, а к отрицательным прибавить элемент с номером 4. 9) удалить из таблицы все элементы массива, кратные 3 или 5. 10) поменять местами второй элемент массива и первый чётный. . нужно)
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.