0 / 0 / 0
Регистрация: 18.12.2013
Сообщений: 10
1

Расположить все элементы массива заданным образом: сначала все положительные, затем нули, затем отрицательные

18.12.2013, 23:03. Показов 1780. Ответов 2
Метки нет (Все метки)

Пожалуйста помогите, нужно решить 3 задачи

1. Дан массив А (25). Расположить все элементы в таком порядке: сначала все положительные, затем нули, затем отрицательные.

2. Дан массив А(N). Заменить нулями все элементы между максимальным и минимальным элементами.

3. Дан массив M(N). Удалить из массива все элементы кратные 5.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2013, 23:03
Ответы с готовыми решениями:

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

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

В данной последовательности расположить сначала все отрицательные, затем положительные элементы
ПОМОГИТЕ Написать программу для решения следующей задачи: в данной последовательности расположить...

Записать в массив сначала все положительные, затем все отрицательные числа и нули
Пожалуйста докажите код выделенный в комментарии. Задание:"Дан массив вещественных чисел ,...

2
14 / 14 / 14
Регистрация: 09.12.2012
Сообщений: 56
19.12.2013, 03:19 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Первая:
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
Uses Crt;
Const nmax=25;
Var A:array[1..nmax] of integer;
    B:array[1..nmax] of integer;
    n,i,j:integer;
begin
writeln('введите вол-во чисел');
readln(n);
for i:=1 to n do
     begin
           write(i,'-й: ');
           read(A[i]);
     end;
for i:=1 to n do
    write(A[i],' ');
writeln;
writeln('преобразованный массив:');
for i:=1 to n do
   if A[i]<0 then
      write(A[i], ' ');
for i:=1 to n do
   if A[i]=0 then
      write(A[i], ' ');
for i:=1 to n do
   if A[i]>0 then
      write(A[i], ' ');
end.
Добавлено через 13 минут
Третья:
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
Uses Crt;
Const nmax=25;
Var A:array[1..nmax] of integer;
    B:array[1..nmax] of integer;
    n,i,j:integer;
begin
writeln('введите кол-во элементов');
readln(n);
for i:=1 to n do
     begin
           write(i,'-й: ');
           read(A[i]);
     end;
     writeln('1 массив:');
for i:=1 to n do
    write(A[i],' ');
writeln;
inc(j);
for i:=1 to n do
    if (A[i] mod 5 <> 0) then
    begin
         B[j]:=A[i];
         inc(j);
    end;
n:=j-1;
writeln('2 массив:');
for i:=1 to n do
    write(B[i],' ');
end.
1
ildwine
19.12.2013, 06:34     Расположить все элементы массива заданным образом: сначала все положительные, затем нули, затем отрицательные
  #3
 Комментарий модератора 
omgdimas163, одна тема одна задача! Читайте правила форума
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.12.2013, 06:34

Сортировка.Расположить в массиве Y сначала положительные, а затем отрицательные элементы массива Н
Всем привет. Дали задание:Расположить в массиве Y сначала положительные, а затем отрицательные...

Расположить в массиве R сначала положительные, а затем отрицательные элементы массивов Z(30) и А(40)
Написать программу решения следующей задачи: Расположить в массиве R сначала положительные, а затем...

Напечатать сначала все отрицательные из чисел, затем - все положительные
пусть дано 100 чисел. напечатать сначала все отрицательные из них, за тем- все положительные.

В последовательности расположить сначала все положительные, затем нулевые
Помогите пожалуйста решить, я в этом ничего не понимаю(( Написать программу для решения следующей...


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

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

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