Дан список вещественных чисел. Для каждого элемента списка напечатать число отрицательных элементов, следующих за ним. ИЛИ после него - попробуйте две функции реализовать Java

public class Main

{

 public static void main(String[] args) {

 float[] myArray = {-1,2,4,5,-7,5,-2,1,4,-2};

     for(int i=0; i<myArray.length; i++)

     {

         beforeItems(myArray,i,myArray.length);

         afterItems(myArray,i,myArray.length);

     }

}

public static void beforeItems(float a[], int position, int lenght)

{

    int sum = 0;

 if (position != 0)

 {

        for(int i=position-1; i>=0; i--)

        {

            if (a[i]<0)

            {

                sum++;

            }

        }

 }

    position++;

 System.out.println("колличество отрицательных элементов до элемента №:" + position + " = " + sum);

}

public static void afterItems(float a[], int position, int lenght)

{

    int sum = 0;

    if(position != lenght-1)

    {

       for(int i=position+1; i<lenght; i++)

       {

           if (a[i]<0)

           {

            sum++;

           }

       }

    }

    position++;

    System.out.println("колличество отрицательных элементов после элемента №:" + position + " = " + sum);

}

}

Объяснение:

 

 

Ну так во первых  обяъвление процедуры должно быть

procedure InputMas1(var mas1:Tmas );

 

 

 во вторых ты забыл  end;  т.е 

 

 

begin
for i:=1 to 10 do
      begin
           mas1[i]:=random(n);
           Write(mas1[i]:3);
     end;

 end; {забытый end}

 

 

в третьих ты  не написал основную прграмму т.е забыл begin и не вызвал процедуру 

InputMas1

 

 

begin

     clrscr;
     InputMas1(mas1);

     readkey;
end. 

 

 

 Итого прога должна выглядеть примерно так

 

 

program Massiv
Uses Crt;
const n=10;
type TMas=array[1..n] of integer;
var mas1:TMas;

procedure InputMas1(var mas1:TMas);
var i:integer;

begin
     for i:=1 to 10 do
        begin
        mas1[i]:=random(n);
        Write(mas1[i]:3);
       end;
end;
{Основная прога}
begin
clrscr;
InputMas1(mas1);
readkey;
end.

 

 

 

 

Держи ! Пользуйся на здоровье и будь внимательнее.

 

 

 

 

 

1. Программа в одной из современных версий Паскаля:

// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
  var s:=ReadlnString('Исходная строка:');
  Writeln('Результат: ',s.MatchValues('[a-zA-ZА-Яа-яёЁ]').JoinIntoString(''));
end.

Тестовое решение:

Исходная строка: // PascalABC.NET 3.1, сборка 1211 от 31.03.2016
Результат: PascalABCNETсборкаот

2. Программа в "школьной версии"

// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
const
  legal=['A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё'];
var
  s:string;
  i:integer;
begin
  Write('Исходная строка: '); Readln(s);
  for i:=Length(s) downto 1 do
    if not(s[i] in legal) then Delete(s,i,1);
  Writeln('Результат: ',s);
end.