Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Определить количество дней, в которых оценки меньше средней оценки по классу https://www.cyberforum.ru/ pascal/ thread87355.html в массиве записаны оценки по информатике 22 учеников класса. Определить количество дней, в которых меньше средней оценки по классу, и вывести номера элементов массива, соответствующих таким ученикам.	Pascal что нужно добавить? Всем доброго времени суток. Завтра сдавать практику а одна прога не доконца фурычит Сама задача! В магазин доставили товар 1)из какой страны доставили самый дорогой,дешёвый товар . 2)Какой товар и из какой страны поступил в наибольшем колличестве-вот задача ВТорое не выходить помогите кому не сложно буду очень признателен. программа program Proga; uses crt;
Pascal Подсчет степени Доброго всем утра. В общем сложилась небольшая проблема. Вычисление такой вот степени (1+х)^3/5 при условии x<=0. Как видите, через exp нельзя. Каким еще способом можно ее подсчитать? https://www.cyberforum.ru/ pascal/ thread87344.html	Pascal Определить количество элементов больших суммы всех элементов и написать их номера. https://www.cyberforum.ru/ pascal/ thread87343.html Дан массив. Определить количество элементов больших суммы всех элементов и написать их номера.
Pascal множества. Программа работает неправильно uses crt; type mn=set of char; var a,b,c:mn; x,y,z:char; procedure enter(var a,b,c:mn); begin a:=; b:=; c:=; writeln('Vvedite element mnojestva A(1 symvol):');	Pascal Рекурсия: вычисление числа сочетаний https://www.cyberforum.ru/ pascal/ thread87335.html помогите довести до ума рекурсию нужно для сокращения числа итераций учесть свойство симетрии c(n,r)=c(n, n-r) program fPaskal; var r,n:integer; function c(r,n:integer):integer; begin if (r=0) or (r=n) then c:=1 else c:=c(n-1,r)+c(n-1,r-1); end;
Pascal Из числа n удалить все четные цифры Из заданного натурального числа n удалить все четные цифры Использовать подпрограммы функции и процедуры, занесенные в модули(( При использовании вектора, он передается в процедуру в виде открытого массива(( https://www.cyberforum.ru/ pascal/ thread87334.html	Перевернуть число Pascal Перевернуть заданное натуральное число n и сложить с исходным. Использовать подпрограммы функции и процедуры, занесенные в модули(( При использовании вектора, он передается в процедуру в виде открытого массива((
Pascal все цифры заданного натурального числа n по возрастанию Поставить все цифры заданного натурального числа n по возрастанию Использовать подпрограммы функции и процедуры, занесенные в модули(( При использовании вектора, он передается в процедуру в виде открытого массива(( https://www.cyberforum.ru/ pascal/ thread87332.html	Pascal вычислить https://www.cyberforum.ru/ pascal/ thread87331.html Вычислить: S =((…(n2 – (n – 1)2 )2 – (n – 2)2 )2 – (n – 3)2 )2 ) - …- 22 )2 – 12 )2 Использовать подпрограммы функции и процедуры, занесенные в модули(( При использовании вектора, он передается в процедуру в виде открытого массива((
Определить максимальную и минимальную цифру заданного натурального числа k Pascal Определить максимальную и минимальную цифру заданного натурального числа k (все цифры в числе различные). Использовать подпрограммы функции и процедуры, занесенные в модули(( При использовании вектора, он передается в процедуру в виде открытого массива((	Pascal Сколько раз в заданном натуральном числе n встречается заданная цифра k? Определить, сколько раз в заданном натуральном числе n встречается заданная цифра k. Использовать подпрограммы функции и процедуры, занесенные в модули(( При использовании вектора, он передается в процедуру в виде открытого массива(( https://www.cyberforum.ru/ pascal/ thread87328.html

Jazon_deenAlt

4117 / 999 / 191

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

Сообщений: 4,223

19.01.2010, 12:06

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

19.01.2010, 12:06. Показов 1755. Ответов 7

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

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

Решение

Не по теме:

Puporev, да нет проблем
alexevt, Wolf, повторение мать учения? хмм...

Ivankooo, и больше не мультитопте...

Pascal

uses crt;
var
a:array[1..100] of integer;
b:array[1..100] of integer;
i,n,k:integer;
begin
k:=0;
writeln('skolko elementov massiva?');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(199)-99;
write(a[i]:4);
if a[i]>=0 then begin
k:=k+1;
b[k]:=a[i];
end;
end;
for i:=1 to n do begin
if a[i]<0 then begin
k:=k+1;
b[k]:=a[i];
end;
end;
writeln;
for i:=1 to n do begin
write(b[i]:4);
end;
readln;
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

19.01.2010, 12:06

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

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

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

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

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

	19.01.2010, 12:06

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

19.01.2010, 12:06

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

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

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

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

Записать массив, сначала все отрицательные числа и нули затем положительные
Дан одномерный массив целых чисел. Записать этот же массив, сначала все отрицательные числа и нули...

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

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

Наверх