Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 30.12.2009
Сообщений: 20
1

Получить новый массив "сжатием " данного массива ,удалив из него все нулевые элементы.

30.12.2009, 10:47. Просмотров 1715. Ответов 2
Метки нет (Все метки)


Здравствуйте, помогите пожалуйста решить:
дано число N и массив a[k](k=1,N). получить новый массив "сжатием " данного массива ,удалив из него все нулевые элементы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.12.2009, 10:47
Ответы с готовыми решениями:

Необходимо "сжать" целочисленный массив, выбросив из него нулевые элементы
3.Дан массив a(n) c целыми элементами . Необходимо "сжать" а , выбросив из него нулевые элементы ....

Сжать массив, удалив из него все элементы, модуль которых не превышает 1. Освободившиеся в конце массива элементы заполнить нулями
Сжать массив, удалив из него все элементы, модуль которых не превышает 1. Освободившиеся в конце...

Получить новый массив, выбросив из исходного все члены равные максимальному и минимальному элементам данного массива
Дан массив действительных чисел. Получить новый массив, выбросив из исходного все члены равные...

Если число цифровых элементов больше,чем алфавитных,то получить новый массив,сцепив попарно цифровые и числовые элементы символом "&"
В массиве А содержатся элементы с только цифровой или только алфавитной информацией.Длинна...

2
Модератор
62864 / 46909 / 32329
Регистрация: 18.05.2008
Сообщений: 113,680
30.12.2009, 10:59 2
Лучший ответ Сообщение было отмечено forward как решение

Решение

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
uses crt;
var a:array[1..50]of integer;
    n,i,j:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Massiv:');
for i:=1 to n do
  begin
    a[i]:=random(5);
    write(a[i],' ');
  end;
writeln;
i:=1;
while i<=n do
   begin
    if a[i]=0 then
       begin
         for j:=i to n-1 do
         a[j]:=a[j+1];
         n:=n-1;
       end
    else i:=i+1;
   end;
writeln('Rezultat:');
for i:=1 to n do
write(a[i],' ');
readln
end.
0
Платежеспособный зверь
8736 / 4154 / 1604
Регистрация: 28.10.2009
Сообщений: 11,226
30.12.2009, 11:02 3
Цитата Сообщение от forward Посмотреть сообщение
Здравствуйте, помогите пожалуйста решить:
дано число N и массив a[k](k=1,N). получить новый массив "сжатием " данного массива ,удалив из него все нулевые элементы.
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
var
n,i,j,kol:integer;
a:array[1..100]of integer;
begin
writeln('vvedite n');
readln(n);
randomize;
writeln('ishodnyj massiv');
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i]:3);
end;
for i:=n downto 1 do
if a[i]=0 then
  begin
 inc(kol);
   for j:=i to n-1 do
   a[j]:=a[j+1];
end;
writeln;
writeln('novyj massiv');
for i:=1 to n-kol do
write(a[i]:3);
readln;
end.
Puporev, ты оперативен!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.12.2009, 11:02

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

Дан массив целых чисел, содержащий 10 элементов. Составить новый массив, записать в него сначала все положительные элементы исходного массива
, потом все отрицательные элементы, потом нули... Да прибудет с вами сила...

Преобразовать строку, удалив из нее все запятые, предшествующие первой точке, и заменив знаком "+" все цифры "5"
Дана строка символов, среди которых есть хотябы одна точка. Преобразовать строку, удалив из нее все...

Сжать массив, выбросив из него все нулевые элементы
Помогите идиоту сжать заданный массив, выбросив из него все нулевые элементы=)

Осуществить сжатие массива А(50), удалив из него все отрицательные элементы
Завтра нужно сдать программу, они сделаны, нужно описать программу что-где где цикл, что создаем...


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

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

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