что хорошо, так это отсутствие лишнего украшательства сайта

Здрасьте все, подскажите плиз, про программу pace

Класный сайт! Очень помогает!

По поводу
Николай____http://nickhome2005.narod.ru/
обыкновенная завлекалочка - не впечатлило.

Классный сайт!!! Спасибо автору!!!

А как печатать в Паскале на Русском языке???

Огромное спасиба

Здравствуйте, Борис!
Помогите разобраться с задачей, пожалуйста.

Надо:
Преобразовать массив таким образом, чтобы сначала располагались
все положительные элементы, а потом - все отрицательные (элементы,
равные нулю, считать положительными). - с другими частями задания я справился.
(Мои попытки решения в самом низу программы)

Попробовал я здесь использовать другой массив для "складирования" данных, но при этом вместо отрицательного элемента появился ноль - оно и понятно, я же ведь исключил положительные числа, но вот как сместить на образовавшееся место остальные элементы массива - не знаю.
И что получится, если мне надо (после смещения, разумеется) поместить отрицательные элементы: могу ли я воспользоваться аналогичным способом?

С уважением, Евгений.
===============================================================

{ Вариант 3 2_83~3.PAS

В одномерном массиве, состоящем из n целочисленных элементов,
вычислить:
1) произведение элементов массива с четными номерами;
2) сумму элементов массива, расположенных между
первым и последним нулевым элементами;

Преобразовать массив таким образом, чтобы сначала располагались
все положительные элементы, а потом - все отрицательные (элементы,
равные нулю, считать положительными).

Разработал Горбунов Е.Г. }

Program Var_3;
Uses Crt;
Const
n = 7;
a : array[1..n] of integer = (3, 0, 4, 2, -7, 5, 0);
Var
j, i, x, y, proizv, sum : integer;
b : array [1..n] of integer;

Begin
WriteLn; WriteLn; write(''Введенный массив'');
for i := 1 to n do write(a[i]:6); WriteLn; { Отладка }

{ ПРОИЗВЕДЕНИЕ ЭЛЕМЕНТОВ МАССИВА С ЧЕТНЫМИ НОМЕРАМИ }
proizv := 1;
for i := 1 to n do
if i mod 2 = 0 then begin
proizv := proizv*a[i]; inc(i) end;

WriteLn('' ПРОИЗВЕДЕНИЕ ЭЛЕМЕНТОВ МАССИВА С ЧЕТНЫМИ НОМЕРАМИ'',proizv:5);
WriteLn('' Для продолжения нажмите любую клавишу'');
Readkey;
{ ================================================================= }

{ СУММА ЭЛЕМЕНТОВ МАССИВА, РАСПОЛОЖЕННЫХ
МЕЖДУ ПЕРВЫМ И ПОСЛЕДНИМ НУЛЕВЫМ ЭЛЕМЕНТАМИ }
Writeln;
For i := 1 to n do
if a[i] = 0 then begin x := i; break end;
For i := n downto 1 do
if a[i] = 0 then begin y := i; break end;

sum := 0;
For i := x+1 to y-1 do sum := sum + a[i];
WriteLn(''x='',x:5); WriteLn(''y='',y:5);

WriteLn(''Cумма элементов массива, расположенных'');
WriteLn(''между первым и последним нулевым элементом'',sum:5);
{ ================================================================= }

{ Преобразование массива таким образом, чтобы сначала располагались
все положительные элементы, а потом - все отрицательные (элементы,
равные нулю, считаются положительными }

j:= 0;
For i := 1 to n do begin
if a[i] >= 0 then b[i] := a[i]; end;

writeln;
writeLn(''Преобразованный массив b[i]'');
For i := 1 to n do Write(b[i]:5);
ReadKey;
end.

Спасибо за оперативный ответ, а то и с другими примерами не мог толком разобраться.
Напиши, с какими?
==================================================
Пока получается, но скоро что-нибудь найду, это обязательно :-)))

скачал с этого сайта Free Pascal опиши, пожалуйста, как правильно задать путь к папкам с библиотеками (что писать в конкретно каждой строке )

Спасибо за оперативный ответ, а то и с другими примерами не мог толком разобраться.

Здравствуйте, уважаемый!

Помогите понять причину.
Учу Паскаль по Павловской.

Воспроизвел одну программку по нахождению
максимального элемента и его номера в массиве данных.

Но работает непонятно:
при запуске программы из TP клавишами Ctrl+F9
сперва вводятся данные, затем при нажатии Enter
все пропадает, т.е. возвращаюсь в TP,
а при повторном нажатии комбинации этих же клавиш
появляется ответ и приглашение к вводу нового массива.
Понимаю, какая-то мелочь, но пока сообразить не могу.

Помогите, пожалуйста!

Вот программа:

Program index_max_elem;

const
n=5;
var
a : array [1..n] of integer;
i : integer;
imax: integer;
begin
WriteLn(''Vvedite '',n,'' elementov massiva'');

for i:=1 to n do read(a[i]);
imax := 1;
for i:= 2 to n do
if a[i] > a[imax] then imax := i;

WriteLn(''Nomer max elemmenta: '',imax);
WriteLn(''Max element: '',a[imax])

end.

сравнимы ли возможнсти Виртуал и Борланд пасакаля какой круче?

"Денис" от 26.03.2008 12:47
Написал простенькую программу, вычисляющую значение выражения с четырьмя множествами.

вот она: http://imtru.ifolder.ru/5889186
Извини, но смотреть Вашу рекламу не стал - и так задолбала
================================================
Согласен, хочешь залить - заливай на Рапиду или депозит-файл, а так - на фиг она сдалась.
В крайнем случае - текст на сайт.

Евгений.

чОрт. Реклама... На какую почту прислать???