Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Найти среди них те, которые являются квадратами некоторого числа m. Даны целые положительные числа а1, а2, ..., an. Найти среди них те, которые являются квадратами некоторого числа m. https://www.cyberforum.ru/ turbo-pascal/ thread139530.html	Определить минимальный радиус круга с центром в начале координат Turbo Pascal помогите плз В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем порядке: x1, y1, х2, y2, x3, y3, и т.д. Определить минимальный радиус круга с центром в начале координат, который содержит все точки.
Turbo Pascal Найти минимальный элемент массива помогите плз Дан одномерный массив A. Найти: mаx(а2, а4, ..., a2k) + min(а1, а3, …, a2k-1). https://www.cyberforum.ru/ turbo-pascal/ thread139508.html	Turbo Pascal Одномерные массивы помогите плз Дана последовательность чисел a1, a2, ..., an. Указать наименьшую длину числовой оси, содержащую все эти числа. https://www.cyberforum.ru/ turbo-pascal/ thread139506.html
Найти сумму элементов, кратных данному K. Turbo Pascal Дан массив натуральных чисел. Найти сумму элементов, кратных данному K.	Turbo Pascal Сумма положительных и отрицательных элементов массива Условие в картинке https://www.cyberforum.ru/ turbo-pascal/ thread139492.html
Turbo Pascal Сравнить значения числителя и знаменателя дроби Условие в картинке https://www.cyberforum.ru/ turbo-pascal/ thread139486.html	Turbo Pascal Отрицательный элемент заменить полусуммой первого и последнего элементов Пусть дан массив размером n элементов.(n=8).Каждый Отрицательный элемент заменить полусуммой первого и последнего элементов массива.Вывести на экран указанный массив.(массив одномерный)
Turbo Pascal Найти максимальный элемент побочной диагонали матрицы https://www.cyberforum.ru/ turbo-pascal/ thread139483.html Найти максимальный побочный элемент матрицы B(m,n) .(m=4,n=4).	Turbo Pascal Определить площадь части прямоугольника, расположенной в I координатной четверти https://www.cyberforum.ru/ turbo-pascal/ thread139443.html Заданы координаты вершин прямоугольника: (x1, у2), (х2, у2), (х3, y3), (х4, у4). Определить площадь части прямоугольника, расположенной в I координатной четверти. СРОЧНО!!! Решение в Pascale
Turbo Pascal Сформировать файл целых чисел, переставить на начало файла его последний компонент Доброе время суток, помогите кто знает. Сформировать файл целых чисел, переставить на начало файла его последний компонент. Буду очень благодарен. Добавлено через 12 часов 42 минуты подскажите кто знает?* Добавлено через 4 часа 33 минуты подскажите как сделать лучше, обменять просто информационные поля или же сохранять элемент первый и последний , удалять и потом переставлять просто?*	Turbo Pascal Двумерный массив. Поменять первую и последнюю строки между собой https://www.cyberforum.ru/ turbo-pascal/ thread139431.html В маирице размером n на m(1<n, m,10) (ввод n, m и матрицы с клавиатуры) поменять первую и последнюю строки между собой. Вывести исходную и получившуюся матрицы. Использовать подпрограммы.

STGE

773 / 578 / 324

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

Сообщений: 1,188

02.06.2010, 13:46

Переставить элементы массива так, чтобы сначала располагались все нули, затем все единицы - Turbo Pascal - Ответ 773462

02.06.2010, 13:46. Показов 4215. Ответов 1

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

Ответ

Pascal

uses crt;
const n=10;
var a: array[1..n] of byte; 
      i,j,pr: byte;
begin
 randomize;
 clrscr;
 writeln('исходный массив: ');
 for i:=1 to n do
  begin
   a[i]:=random(3);
   write(a[i]:3);
  end;
 writeln;
 for i:=1 to n-1 do
  for j:=i+1 to n do
   if a[i]>a[j] then 
    begin
     pr:=a[i];
     a[i]:=a[j];
     a[j]:=pr;
    end;
 writeln('результат: ');
 for i:=1 to n do
  write(a[i]:3);
end.

Вернуться к обсуждению:
Переставить элементы массива так, чтобы сначала располагались все нули, затем все единицы Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

02.06.2010, 13:46

Готовые ответы и решения:

Переставить элементы массива так, чтобы сначала располагались все единицы, затем все двойки и, наконец, все нули
Ребят помогите пожалуйста В массив x(N) каждый элемент равен 0,1 или 2. Приставить элементы...

Переставить элементы массива так, чтобы располагались все нули, затем все единицы, и, наконец, все двойки
Помогите пожалуйста решить задачу: В массиве х(12) каждый элемент равен 0, 1 или 2. Переставить...

Сформировать массив L из массивов A и B путем их слияния так, чтобы сначала располагались все элементы массива A, а затем все элементы массива B.
Задан массив A из N элементов и массив B из M элементов. Сформировать массив L из массивов A и B...

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

	02.06.2010, 13:46

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

02.06.2010, 13:46

Помогаю со студенческими работами здесь

Переставить элементы массива так, чтобы сначала следовали все отрицательные числа, а затем все остальные
Помогите, пожалуйста, решить задачу в Pascal Дан целочисленный массив размером N. Преобразовать...

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

Переставить элемента массива, так чтобы сначала было расположены все положительные элементы, потом все отрицательные
Всем добрый вечер! Есть задача: Кто знает как ее решить - помогите, с меня спасибо:)

Переставить элементы в массиве, чтобы сначала следовали все отрицательные числа, а затем все остальные
Здраствуйте! У меня было такое задание. Дан одномерный массив целых чисел. Переставить элементы в...

Наверх