Deiphi 3 услоия

[schibeki]

1. Найти количество положительных элементов массива.
2. Найти сумму элементов массива, расположенных после последнего элемента, равного нулю.
3. Преобразовать массив таким образом, чтобы сначала располагались все элементы, целая часть которых не превышает 1, а потом - все остальные.
Помогите,пожалуйста,с кодом,для пограммы. форма программы есть

[ZX Spectrum-128]

1.

K:=0;
For i:=1 to n do
  If a[i]>0 then
    K:=k+1;

[schibeki]

Сообщение от ZX Spectrum-128

1.

K:=0;
For i:=1 to n do
  If a[i]>0 then
    K:=k+1;

массив ведь нужен?

[ZX Spectrum-128]

Ну-да, конечно. Описание переменных, ввод массива и т.д.

[schibeki]

Сообщение от ZX Spectrum-128

Ну-да, конечно. Описание переменных, ввод массива и т.д.

а следующие условия можешь?

[ZX Spectrum-128]

2.

For i:=n downto 1 do
  If a[i]=0 Then
    Begin
       K:=i;
       Break;
     End;
Sum:=0;
For i:=k to n do
  Sum:=sum+a[i];

[Serge_Bliznykov]

я бы решение 2й задачи дополнил иницилизацией K, иначе, если в массиве не будет нулевых элементов, возможна неопределённая ситуация!

2.

k := n + 1;
For i:=n downto 1 do
  If a[i]=0 Then
    Begin
       K:=i;
       Break;
     End;
Sum:=0;
For i:=k to n do
  Sum:=sum+a[i];

[schibeki]

Сообщение от ZX Spectrum-128

2.

For i:=n downto 1 do
  If a[i]=0 Then
    Begin
       K:=i;
       Break;
     End;
Sum:=0;
For i:=k to n do
  Sum:=sum+a[i];

3 можешь?
пож

[ZX Spectrum-128]

я бы решение 2й задачи дополнил иницилизацией K, иначе, если в массиве не будет нулевых элементов, возможна неопределённая ситуация!

Да, спасибо. Как-то не подумал.

[schibeki]

Сообщение от ZX Spectrum-128

Да, спасибо. Как-то не подумал.

ну????????????????????????????????? ????????????