Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Вычислить сумму Вычислить сумму: 1+\frac{1}{1!}+\frac{1}{2!}+\frac{1}{3!}+...+\frac{1}{n!} , где k!=1\cdot 2\cdot 3\cdot ...\cdot n (Значение n вводится с клавиатуры; 1<n≤10). https://www.cyberforum.ru/ pascal/ thread1252058.html	Pascal Вычислить арифметические выражения из файла Дан файл, содержащий текст и арифметические выражения вида ав, где -один из знаков +,-,*,/. Выписать все арифм. Выражения и вычислить их значения.
Pascal Определить, находится ли точка в треугольнике. https://www.cyberforum.ru/ pascal/ thread1252045.html Заданы прямоугольные координаты X1,Y1,X2,Y2,X3,Y3 вершина треугольника и координаты X и Y точки. Определить находиться ли точка в треугольнике.	Pascal Вычислить значение выражения Просьба с полным кодом F = 7! + 4! * cos370 https://www.cyberforum.ru/ pascal/ thread1252042.html
Pascal Вычислить значение выражения Большая просьба с полным кодом	Pascal Вычислить значение выражения https://www.cyberforum.ru/ pascal/ thread1252037.html Желательно с Польным кодом C = arccos({a}^{2}+{b}^{2}+{y}^{2})
Pascal Вывод отсортированного массива в файл https://www.cyberforum.ru/ pascal/ thread1251701.html Задание такое: Дан список сотрудников лаборатории(10 человек) в виде ФАМИЛИЯ ДОЛЖНОСТЬ 15 симв. 10 симв. ...	Найти произведение двумерного и одномерного массивов Pascal Задан двухмерный массив A (N, M) и одномерный B (N). Получить их произведение. Напечатать в строк. Паскаль
Pascal Каждый элемент одномерного массива разделить на сумму всех его элементов Найти сумму элементов одномерного массива размером 4. разделить каждый элемент исходного массива на полученное значение. результат получить в том же массиве. напечатать в одной строке. Паскаль https://www.cyberforum.ru/ pascal/ thread1251152.html	Pascal Найти сумму элементов в каждом столбце в двухмерном массиве Пожалуйста,помогите написать программы.1)Найти сумму элементов в каждом столбце,в двухмерном массиве. Язык Паскаль 2) определить max элементы в каждой строке. (Одно мерный массив) язык Паскаль https://www.cyberforum.ru/ pascal/ thread1250836.html
Неверный результат в программе с условными операторами Pascal Вместо результата всегда пишет-0 program vareniki; var a: char; g,b,c: single; begin writeln ('На какой планете вы живёте?'); readln (a); writeln (a); if a='Земля' then g:=10; if...	Pascal Найти наибольшее значение из элементов, расположенных над и под побочной диагональю матрицы https://www.cyberforum.ru/ pascal/ thread1250721.html Дана дейсвительная квадратная матрица порядка n*n. Найти наибольшее значение из элементов, расположенных над и под побоной диагональю. Нашел над побочной, а как под побочной? Var x: Array of...

Puporev

Почетный модератор

64275 / 47574 / 32739

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

Сообщений: 115,182

06.09.2014, 21:31

Получить из массива новый в котором сначала идут положительные числа, затем нули и потом отрицательные - Pascal - Ответ 6582726

06.09.2014, 21:31. Показов 1673. Ответов 2

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

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

Решение

Pascal

const n=7;
type mas=array[1..n]of integer;
const x:mas=(-1,2,0,4,-3,-2,0);
var y:mas;
    i,k,j,z:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
write(x[i]:4);
writeln;
{положительные}
k:=0;
for i:=1 to n do
if x[i]>0 then
 begin
  k:=k+1;
  y[k]:=x[i];
 end;
{ноли}
for i:=1 to n do
if x[i]=0 then
 begin
  k:=k+1;
  y[k]:=x[i];
 end;
{отрицательные}
for i:=1 to n do
if x[i]<0 then
 begin
  k:=k+1;
  y[k]:=x[i];
 end;
writeln('Перестановка:');
for i:=1 to n do
write(y[i]:4);
end.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

06.09.2014, 21:31

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

Получить новый массив, где сначала идут положительные числа, затем нулевые, затем отрицательные
Дан массив X. Получить новый массив Y такой, что в нем сначала идут положительные числа, затем...

Получить новый массив, в котором сначала идут положительные числа, затем нулевые, затем отрицательные исходного
дан массив X(N). получить новый массив Y(N), такой, что в нем сначала идут положительные числа,...

Сформировать новый массив в котором идут сначала отрицательные элементы, затем нули, затем положительные
Здравствуйте! Помогите пожалуйста! Задание: Дан массив из 10 чисел. Нужно сформировать новый...

Получить массив, в котором сначала идут положительные элементы, а затем отрицательные
Составьте программу на языке C# с использованием динамических массивов. Дан массив A размера n, не...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

06.09.2014, 21:31

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

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

Сортировка массива: сначала положительные числа по убыванию, потом отрицательные по возрастанию, потом нули
Заполнить массив рандомными числами от -100 включительно до 100 включительно. Отсортировать так:...

Получить массив Y(N) такой, что в нем сначала идут положительные числа, затем отрицательные из X.
дан массив X(N). Получить массив Y(N) такой, что в нем сначала идут положительные числа, затем...

Получить новый массив, в котором сначала расположены отрицательные, а затем положительные элементы исходного
Даны два массива A и B размера 5. Получить новый массив, в котором сначала расположены...

Наверх