Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
matan
1

Удаления элементов одномерного массива A(N)

05.03.2013, 09:06. Просмотров 845. Ответов 3
Метки нет (Все метки)


Составьте программу удаления элементов одномерного массива A(N), равных последнему элементу этого массива
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2013, 09:06
Ответы с готовыми решениями:

Составьте программу удаления элементов одномерного массива
Составьте программу удаления элементов одномерного массива A(N), больших последнего элемента...

Составьте программу удаления элементов одномерного массива
1. Составьте программу удаления элементов одномерного массива A(N),равных элементу этого массива...

Составить программу удаления последнего отрицательного элемента одномерного массива A(N)
Целый день ломаю голову,никак не получается.. Вот я что то пытался сделать (ерунда конечно, но все...

Из одномерного массива А получить одномерыный массив В, путем удаления из A элементы минимума и элементы, кратные k.
Из одномерного массива А получить одномерыный массив В, путем удаления из A элементы минимума и...

3
Модератор
62853 / 46902 / 32325
Регистрация: 18.05.2008
Сообщений: 113,645
05.03.2013, 09:13 2
А последний тоже удалять?

Добавлено через 5 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt;
const nmax=100;
var  a:array[1..nmax] of integer;
     n,i,j,p,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(4);
  write(a[i],' ');
 end;
writeln;
x:=a[n];
i:=1;
while i<=n do {если последний не удалять, то i<n}
if a[i]=x then
 begin
  if i=n then n:=n-1{если последний не удалять, то это тоже не нужно}
  else
   begin
    for j:=i to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end
 end
else i:=i+1;
writeln('Удаление элементов, равных последнему:');
for i:=1 to n do
write(a[i],' ');
readln
end.
0
wq
85 / 78 / 32
Регистрация: 26.11.2015
Сообщений: 481
10.03.2013, 15:39 3
Puporev, объясните пожалуйста подробнее данную задачу заранее спасибо
0
Модератор
62853 / 46902 / 32325
Регистрация: 18.05.2008
Сообщений: 113,645
10.03.2013, 15:47 4
Pascal
1
2
3
4
for j:=i to n-1 do//сдвигаем конец массива на данный элемент
a[j]:=a[j+1]; //элемент стирается
n:=n-1;//уменьшаем массив на 1
Остальное должно быть понятно
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.03.2013, 15:47

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Представление двумерного массива размерами n*m в виде одномерного массива длиной n*m элементов
Написать программу для представления двумерного массива размерами n*m в виде одномерного массива...

Разместить элементы одномерного массива, равные нулю, после всех элементов массива
Преобразовать массив К размером n таким образом, чтобы элементы, равные нулю, располагались после...

Процедура должна определить сумму четных элементов одномерного массива с n целых элементов
Процедура должна определить сумму четных элементов одномерного массива с n целых элементов

Вычислить сумму элементов одномерного массива с числом элементов
Помогите пожалуйста! Вычислить сумму элементов одномерного массива с числом элементов n (n...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.