написать программу

[hudson]

Создать функцию, которая все отрицательные элементы массива заменит на нули, а положительные на единицы.

[NewMen]

Массив самому надо вводить?

[Филантроп]

может все таки процедуру?

type Tvector=array[1..100] of real;
...........
procedure Your_name(var a:Tvector;r:integer);
i:integer;
begin
for i:=1 to r do
if a[i]<=0 then a[i]:=0
else a[i]:=1;
end;

[xakkkkker]

Program MATRICA;
var
 matr:array[1..10,1..10] of integer;
 i,j:integer;
begin
 Writeln('Vod matrici');
 For i:=1 to 10 do
 For j:=1 to 10 do
  Readln(Matr[i,j]);

 For i:=1 to 10 do
 For j:=1 to 10 do
  If Matr[i,j]>0 then
     Matr[i,j]:=1
  else
     Matr[i,j]:=0;

For i:=1 to 10 do
 For j:=1 to 10 do
  Writeln(Matr[i,j]);
end.

[_-Re@l-_]

function massiv:integer;
var A:array [1..10] of integer;
i:integer;
n:integer;
begin
     write('кол-во элементов массива = ');
     readln(n);
     for i:=1 to n do
     begin
     write('A[',i,'] = ');
     readln(A[i]);
     end;
     for i:=1 to n do
     begin
     if A[i]<0 then A[i]:=0;
     if A[i]>0 then A[i]:=1;
     end;
end.

[NewMen]

program Mass;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
 vec=array[1..100,1..100]of integer;
var
 a:vec;
 i,j,m,n:integer;
function vvodmas(var a:vec):integer;
var
 i,j:integer;
begin
 for i:=1 to n do
   for j:=1 to m do begin
    write('a[',i,',',j,']= ');
    readln(a[i,j]);
    end;
end;

function mas(var a:vec):integer;
var
 i,j:integer;
begin
 for i:=1 to n do
  for j:=1 to m do begin
   if a[i,j]<=0 then
    a[i,j]:=0 else
     a[i,j]:=1;
  end;
end;

function vivodmas(var a:vec):integer;
var
 i,j:integer;
begin
 for i:=1 to n do begin
   for j:=1 to m do
    write(a[i,j]:3);
 writeln;
 end;
end;

begin
write('Введите кол строк= '); readln(n);
write('Введите кол столбцов= '); readln(m);
vvodmas(a);
writeln;
mas(a);
vivodmas(a);
readln;
end.

[Филантроп]

function massiv:integer;

и чего эта функция возвращает?

[NewMen]

Она ничего не возвращяет.....