Ну так во первых обяъвление процедуры должно быть
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.
Держи ! Пользуйся на здоровье и будь внимательнее.
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);
}
}
Объяснение: