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.Ввод автоматически...	Pascal Разработать программу печати текстового файла https://www.cyberforum.ru/ pascal/ thread83195.html Вы моя последняя надежда..... . Похожие задачи уже встречал на вашем форуме, немного разобрался... Разработать программу печати текстового файла с размещением текста по 72 символа в строку с...
Определить и запомнить количества положительных и отрицательных элементов каждой строки матрицы 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[NM] и В[LM] проанализировать последний элемент каждой строки...* В двумерных массивах A и В проанализировать последний элемент каждой строки. Если он больше числа на побочной диагонали, то поменять их местами, иначе эту строку рассортировать по убыванию	Pascal Найти наименьший элемент массива Условие задачи: Написать программу на обработку одномерного массива. Найти наименьший элемент массива A(5). Если он имеет четный номер, поменять местами найденный элемент с первым элементом массива,... https://www.cyberforum.ru/ pascal/ thread83154.html

yanyk1n

4341 / 1473 / 680

Регистрация: 12.03.2009

Сообщений: 5,310

06.01.2010, 23:06

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

06.01.2010, 23:06. Показов 2718. Ответов 2

Метки (Все метки)

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

Решение

Pascal

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

Следующий ответ

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) перенести числа(элементы массива): сначала нечетные, а затем...

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 значений. переписать все нечетные значения в начало, а все...

Наверх