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

Дан массив целых чисел, содержащий 10 элементов,

06.06.2010, 18:02. Показов 1848. Ответов 1
Метки нет (Все метки)

Дан массив целых чисел, содержащий 10 элементов, записать в этот же массив сначала все положительные, затем все отрицательные числа и нули, сохраняя порядок их следования
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2010, 18:02
Ответы с готовыми решениями:

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

Pascal. Дан массив целых чисел из 14 элементов. Найти произведение первых трех отрицательных элементов
Дан массив целых чисел из 14 элементов. Найти произведение первых трех отрицательных элементов

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

дан массив целых чисел в котором храниться 20 тысяч элементов
дан массив целых чисел в котором храниться 20 тысяч элементов.Найти в массиве первый минимальный...

1
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
06.06.2010, 18:10 2
Лучший ответ Сообщение было отмечено lino4ka как решение

Решение

uses crt;
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
38
39
40
41
42
43
44
45
46
const n=10;
var a:array[1..n] of integer;
    i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
writeln('Введите ',n,' элементов массива, целые положительные, отрицательные и ноли:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
{положительные вперед}
k:=0;
for i:=1 to n do
if a[i]>0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
{ноли в конец}
k:=0;
for i:=n downto 1 do
if a[i]=0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i to n-k do
    a[j]:=a[j+1];
    a[n-k+1]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i],' ');
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2010, 18:10

Дан массив целых и дополнительных чисел , что имеют n элементов : a1, a2, …, an
Привет! Друзья помогите пожалуйста решить задачу в Pascal: Дан массив целых и дополнительных...

Дан массив целых чисел D, состоящий из 30 элементов. Заполнить его с клавиатуры.
Дан массив целых чисел D, состоящий из 30 элементов. Заполнить его с клавиатуры. Заменить...

дан массив целых чисел. Найти количество нечетных элементов массива
я плохо разбираюсь в массивах. Если можно то напишите пож программу как можно в развернутом виде....

Дан файл целых чисел, содержащий менее 20 символов. Увеличить его размер до 20 элементов
Дан файл целых чисел, содержащий менее 20 символов. Увеличить его размер до 20 элементов, записав в...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru