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

Дан одномерный массив, выбрать из него все нечётные цифры и выстроить по возростанию

30.05.2013, 21:04. Показов 951. Ответов 1
Метки нет (Все метки)

Помогите решить задачи.
2)Дан одномерный массив, выбрать из него все нечётные цифры и выстроить по возростанию.
Помогите, готов после заплатить.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2013, 21:04
Ответы с готовыми решениями:

Дан одномерный массив, выбрать из него элементы удовлетворяющие формуле
Дан одномерный массив из n элементов, выбрать из него элементы удовлетворяющие формуле а=i+1, если...

Дан одномерный массив из n элементов, выбрать из него элементы, удовлетворяющие формуле
Дан одномерный массив из n элементов, выбрать из него элементы удовлетворяющие формуле а=2*i+1,...

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

Дан одномерный массив. Удалить все отрицательные элементы из него
Решите плз задачу. Дан одномерный массив. Удалить все отрицательные элементы из него.

1
223 / 220 / 219
Регистрация: 03.07.2012
Сообщений: 462
01.06.2013, 09:10 2
Лучший ответ Сообщение было отмечено ZaStalina как решение

Решение

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
program arr;
{2)Дан одномерный массив, выбрать из него все нечётные цифры и выстроить по возростанию}
uses
  crt;
const
  Nmax = 50;  
var
  a : array[1..Nmax] of integer;
  n, i, j : byte;
  temp : integer;
begin
  clrscr;
  repeat
  write('N = '); readln(n);
  until n in [1..Nmax];
  randomize;
  writeln('Isxodnyi massiv :');
  for i := 1 to n do begin
    a[i] := random(51)-25;
    write(a[i]:4);
    end;
    writeln;
  for i := 1 to n-1 do
   for j := 1 to n-i do
     if a[j]>a[j+1] then begin
      temp := a[j];
      a[j] := a[j+1];
      a[j+1] := temp;
     end;    
  writeln('Нечётные элементы массива по возрастанию :');     
  for i := 1 to n do
    if abs(a[i] mod 2) = 1 then write(a[i]:4);
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2013, 09:10

Дан массив из k символов. Вывести на экран сначала все цифры, входящие в него, а затем все остальные символы
Здравствуйте, помогите пожалуйста решить задачу. Дан массив из k символов. Вывести на экран...

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

Дан одномерный массив. Сжать массив, удалив из него все элементы. модуль которых не превышает, заданно 20 числа а.
Дан одномерный массив. Сжать массив, удалив из него все элементы. модуль которых не превышает,...

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


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

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

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