Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Решить квадратное уравнение помогите плз решить квадратное уравнение: (sqX+BX+C)-3sqrt sqX+BX+A=6 Добавлено через 35 минут пожалуйста помогите! https://www.cyberforum.ru/ pascal/ thread83206.html Pascal 10^5000
Нашел задачу, где ограничения по типу 10^5000(десять в степени пять тысяч), какой тип влезет в этот промежуток??
Pascal Вычислить общий объем отправляемого товара. https://www.cyberforum.ru/ pascal/ thread83199.html
С клавиатуры последовательно вводятся количество загружаемого товара и его единичный объем.При этом на погрузку отправляются только товары с единичным объемом не более V.Ввод автоматически прекращается,как только общий объем введенного товара превзойдет емкость трейлера Vo.Вычислить общий объем отправляемого товара.
Pascal Разработать программу печати текстового файла https://www.cyberforum.ru/ pascal/ thread83195.html
Вы моя последняя надежда..... . Похожие задачи уже встречал на вашем форуме, немного разобрался... Разработать программу печати текстового файла с размещением текста по 72 символа в строку с переносом в месте разрыва слова и печатью каждого предложения с красной строки (5 пробелов в начале строки). Предусмотреть проверку существования исходного файла и формирование страниц с нумерацией...
Определить и запомнить количества положительных и отрицательных элементов каждой строки матрицы Pascal
Определить и запомнить количества положительных и отрицательных элементов каждой строки матрицы N×M.. Заранее очень сильно благодарен... я ещё ток учусЬ ;(
Pascal теория длинной арифметики Реально пашет проверял!:good: https://www.cyberforum.ru/ pascal/ thread83178.html
Pascal Найти количество чисел, являющихся палиндромами Даны целые числа n, a1, a2,…, an. Найти количество чисел, являющихся палиндромами:gcray: https://www.cyberforum.ru/ pascal/ thread83174.html Pascal функция для работы с предложениями
помогите плиз осталась последняя лаба и немогу сделать((:help: 1)Функция для работы с предложениями Функция - COUNT4LET(F:text):Word - возвращает кол-во слов из четырех букв в текстовом файле F.
Pascal Extended на Pascal 7.0 https://www.cyberforum.ru/ pascal/ thread83165.html
Сколько символов вмещает extended
Pascal Найти наибольшую сумму подряд идущих элементов Даны целые числа n, a1, a2,…, an. Найти наибольшую сумму подряд идущих элементов:) https://www.cyberforum.ru/ pascal/ thread83162.html
Pascal В двумерных массивах A[N*M] и В[L*M] проанализировать последний элемент каждой строки...
В двумерных массивах A и В проанализировать последний элемент каждой строки. Если он больше числа на побочной диагонали, то поменять их местами, иначе эту строку рассортировать по убыванию
Pascal Найти наименьший элемент массива Условие задачи: Написать программу на обработку одномерного массива. Найти наименьший элемент массива A(5). Если он имеет четный номер, поменять местами найденный элемент с первым элементом массива, если нечетный - то с последним. program Project1; {$APPTYPE CONSOLE} uses SysUtils; var a:array of integer; i,imin:byte; amin:real; begin https://www.cyberforum.ru/ pascal/ thread83154.html
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
06.01.2010, 23:06 0

Переписать в новый массив сначала нечетные, потом четные элементы. - Pascal - Ответ 462616

06.01.2010, 23:06. Показов 2960. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено haliulin как решение

Решение

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
uses crt;
const n=100;
var jj,nn:array[1..n]of integer;
i,k,p:integer;
 
begin
 clrscr;
 write('-> ');
 for i:=1 to n do read(jj[i]);
 readln;
 k:=0;
 for i:=1 to n do if jj[i] mod 2=1 then
 begin
  inc(k);
  nn[k]:=jj[i];
 end;
 for i:=1 to n do if jj[i] mod 2=0 then
 begin
  inc(k);
  nn[k]:=jj[i];
 end;
 
 p:=0;
 for i:=1 to n do
 begin 
  write(jj[i],' ');
  inc(p);
  if p=10 then
  begin
   p:=0;
   writeln;
  end;
 end;
 readln;
end.


Вернуться к обсуждению:
Переписать в новый массив сначала нечетные, потом четные элементы. Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.01.2010, 23:06
Готовые ответы и решения:

Вывести на экран сначала четные элементы массива потом нечетные
Дан массив целых чисел. Вывести на экран сначало четные элементы массива потом не четные

Четные элементы массива переписать в новый одномерный массив
Дан массив C(m,n)(m=3,n=5).Четные элементы этого массива переписать в новый одномерный массив D....

В третий файл записать сначала четные элементы первого файла, а затем — нечетные
Помогите с этой задачкой,заранее спасибо. Вообщем надо создать 2 типизированных файла из целых...

Из одного массива в другой массив перенести числа: сначала нечетные, а затем четные
Из массива JJ(100) в массив NN(100) перенести числа(элементы массива): сначала нечетные, а затем...

2
06.01.2010, 23:06
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.01.2010, 23:06
Помогаю со студенческими работами здесь

Переписать данные массива в другой 2 раза: сначала все элементы идут в прямом потом обратном порядке
Из заданного массива переписать информацию в другой 2 раза таким образом: сначала все элементы идут...

Массив. Поменять четные и нечетные элементы местами
Выполнить действия над массивами. Размер массивов – N. Программа должна предъявлять исходные и...

68. (6 б.) Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n). Подсчитать количество тех и других.
68. (6 б.) Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в...

Массив: Переписать все нечетные значения в начало, а все четные в конец
дан одномерный массив, содержащий n значений. переписать все нечетные значения в начало, а все...

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