HELP!!*Дан массив А целых чисел, состоящий из 20 частей. Заполнить с
HELP!!
*Дан массив А целых чисел, состоящий из 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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.