Двумерный массив.

[Mirel]

Сформировать двумерный массив F размером 2 x 8 с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. В строке матрицы F, содержащей максимальный элемент, заменить все отрицательные числа нулями (оформить нахождение максимального элемента в виде функции). Вывести на экран и в файл номер этой строки и максимальный элемент.

[Stilet]

И что не получается?

[Mirel]

Program Project;
Uses crt;
Type mass=array [1..2,1..8] of real;
Func=function (a: mass): real;
Var x,y: integer;
Procedure preobr (max: func; var a: mass);
Var nomer_stroki: integer; maximum: real;
Begin
Maximum:=max (a);
If maximum=a[x,y] then nomer_stroki:=x;
For y:=1 to 8 do
If a[nomer_stroki,y]<0 then a[nomer_stroki,y]:=0;
End;
Function max (b: mass): real; far;
Var x,y: integer; max1: real;
Begin
Max1:=b[1,1];
For x:=1 to 2 do
For y:=1 to 8 do
If b[x,y]>max1 then max1:=b[x,y];
Max:=max1;
End;
Var max_el: real; c: text; f: mass;
Begin
Assign (c,'g:\project.txt');
Rewrite (c);
Clrscr;
Randomize;
For x:=1 to 2 do
For y:=1 to 8 do
F[x,y]:=random*20-10;
For x:=1 to 2 do
Begin
For y:=1 to 8 do
Begin
Write (f[x,y]:7:3);
End;
Writeln;
End;
For x:=1 to 2 do
Begin
For y:=1 to 8 do
Begin
Write (c, f[x,y]:7:3);
End;
Writeln (c);
End;
Max_el:=max (f);
Preobr (max,f);
Writeln ('maximalnii element = ', max_el:6:3, 'v stroke', x);
Writeln (c, 'maximal element =', max_el:6:3);
Writeln (c, 'v stroke', x);
Close (c);
For x:=1 to 2 do
Begin
For y:=1 to 8 do
Begin
Write (f[x,y]:7:3);
End;
Writeln;
End;
Readln;
End.

[Mirel]

Программа не меняет все отрицательные числа на \нули\.
Подскажите, как это сделать!!

[Doholyan]

Не вижу...где, ты ХОТЬ пытался в программе обьявить , что ты хочеш проверить весь масив на принадлежность отрицательных чисел???

[Doholyan]

If a[nomer_stroki,y]<0 then a[nomer_stroki,y]:=0;
если это ты имел ввиду....то прочитай
как ты "0" прилипил к переменной (а)
и делай раздиление пробелами и пустыми строгами в программе самому будет удобней читать