Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Mezza Morta
0 / 0 / 0
Регистрация: 26.11.2010
Сообщений: 53
1

одномерный массив

27.11.2010, 02:54. Просмотров 882. Ответов 1
Метки нет (Все метки)

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

Program massiv;
Uses crt;
Const N=10;
Var A:array[1..N] of integer;
C,I,j,k:integer;
Begin
Clrscr;
Randomize;
For i:=1 to N do begin
A[i]:=random(10)-5;
Write(A[i]:3);
End;
Writeln;
Writeln;
For i:=1 to N-1 do begin
If A[i]=0 then
For j:=1 to N-1 do begin
C:=A[J+1];
A[J+1]:=A[J];
A[J]:=c;
End;
End;
For i:=1 to N do
Write(A[i]:3);
Readkey;
End.


прога нормально не идет,подскажите в чем ошибка? по возможности исправьте её...
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2010, 02:54
Ответы с готовыми решениями:

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы...

Создать двумерный массив все четные элементы переписать в одномерный массив
создать двумерный массив все четные элементы переписать в одномерный массив

Дан одномерный массив G[n]. создать массив N, удалив из исходного массива минимальные элементы
Распишите пожалуйста подробнее!!!

Дан одномерный массив Z[n]. Сформировать массив L, содержащий только нечетные элементы массива Z
Задача на Pascal. Не решу - зачёт не поставят.

Одномерный массив. Сформировать такой массив В, который содержит копию положительных элементов массива А
Дан одномерный массив чисел А. Сформировать такой массив В, который содержит...

1
afganec
30 / 30 / 11
Регистрация: 30.06.2009
Сообщений: 149
27.11.2010, 04:05 2
Лучший ответ Сообщение было отмечено Mezza Morta как решение

Решение

Цитата Сообщение от Mezza Morta Посмотреть сообщение
Переставить значения элементов заданного одномерного массива,так, чтобы все нулевые значения оказались в конце массива,а ненулевые вначале, не нарушая порядок, в котором они следовали в исходном массиве.

Program massiv;
Uses crt;
Const N=10;
Var A:array[1..N] of integer;
C,I,j,k:integer;
Begin
Clrscr;
Randomize;
For i:=1 to N do begin
A[i]:=random(10)-5;
Write(A[i]:3);
End;
Writeln;
Writeln;
//#####\\
For i:=1 to N-1 do begin
If A[i]=0 then
For j:=1 to N-1 do begin
C:=A[J+1];
A[J+1]:=A[J];
A[J]:=c;
End;
End;
//#####\\
For i:=1 to N do
Write(A[i]:3);
Readkey;
End.


прога нормально не идет,подскажите в чем ошибка? по возможности исправьте её...
Переделал только код обмена. Держи!

Pascal
1
2
3
4
5
6
7
8
9
  for i:=1 to n do
    begin
      if A[i]=0 then
        begin
          for j:=i to n-1 do
            A[j]:=A[j+1];
            A[n]:=0;
        end;
    end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2010, 04:05

Дан одномерный массив, получить другой массив той же размерности, каждый элемент которого b[i]=a[1]+.+a[i]
Дан одномерный массив, получить другой массив той же размерности, каждый...

Дан двухмерный массив A[m,n]. Составить одномерный массив из номеров столбцов исходного двухмерного массива, в
Добрый день, никак не получается решить данную задачу. Дан двухмерный...

Вставить одномерный массив в двумерный массив так, чтобы второй столбец был отсортирован по убыванию
Помогите пожалуйста решить задачку: Вставить в качестве новой строки...


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

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

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