Из массива целых чисел удалить к элемент напишити задачу а то мне зватро отвечать
10-11 класс
|
program sss;
var i,k,n:integer; a:array[1..100] of integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
read(k);
for i:= k to n-1 do
a[i] := a[i+1];
for i:=1 to n-1 do
write(a[i],' ');
end.
Другие вопросы из категории
1) Вычислить длину окружности и площадь круга одного и того же заданного радиуса R
2) Вычислить расстояние между двумя точками на координатной плоскости, заданными координатами х₁у₁ и х₂у₂
3) Три резистора с сопротивлением R₁, R₂ и R₃ соединены параллельно, найдите сопротивление R всей цепи
for i:=1 to 10 do
A[i]:=5*i;
for i:=1 to 10 do
begin
k:=A[i]-2;
a[10-i+1]:=k;
end
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
Помогите пожалуйста написать программу)