Help! - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Help! (Срочно прям надо =\ завтра практику здавать!)

Help!

Здравствуйте! Помогите пожалуйста решить 2 задачи....если можно то с блок схемами! заранее спасибо!

№1
Дан одномерный массив, содержащий как отрицательные, так и положительные числа.
Составить программу переустановки отрицательных чисел в конец массива, положительных – в начало массива при сохранении первоначального порядка их взаимного расположения.

№2
Составить программу определения наименьшего количества слагаемых вида. Сумма которых превосходит заданное число z.
1/2+2/3+3/4…

№1 | Автор: kubik42 | 2009-07-02, 20:13 | Репутация: [ + 0 ]

Program Sortirovka;
Var N, I, J, K, Pr : Integer; A : Array [1..30] Of Integer;
Begin
Write('Введите количество элементов: '); ReadLn(N);
For I := 1 To N Do
Begin
Write('Введите A[', I, '] '); Readln(A[I]);
End;
WriteLn;
For I := 1 To N - 1 Do
Begin
K := I;
For J := I + 1 To N Do If A[J] <= A[K] Then K := J;
Pr := A[I]; A[I] := A[K]; A[K] := Pr;
End;
For I := 1 To N Do Write(A[I], ' ');
End.

у меня работает)))))

№2 | Автор: DARKSEED | 2009-12-09, 17:15 | Репутация: [ + 8 ]

Help! (Срочно прям надо =\ завтра практику здавать!)

Страница 1 из 1
1

прикладная математика