Задан числовой массив A[1:m, 1:n]. Составить программу...

const N = 10;vara: array[1..N] of integer;i, min, max: integer;beginmin := 30;for i := 1 to N do begina[i] := random(30);if(a[i] < min) then min := a[i];if(a[i] > max) then max := a[i];write(a[i], ' ');end;writeln('Произведение: ', min * max);end.

print *,maxval(a,mask=a.gt.0),maxval(a,mask=a.lt.0)

Составил

Если на ПАСКАЛе пиши на почту

program aaa;
Var a:array[1..50, 1..50] of integer;
n,m, i, j, max1, max2 :integer;
begin
writeln('Введите размерность массива m, n');
readln(m, n);
for i := 1 to m do
for j := 1 to n do
a [ i, j ]:= Random(20)-10;
writeln('Исходный массив: ');
for i := 1 to m do
begin
for j := 1 to n do
write( a [ i, j ] :3,' ');
writeln;
end;
max1:= a[1,1];
max2:= a[1,1];
for i := 1 to m do
for j := 1 to n do
begin
if (a [ i, j ] > max1) and (a[ i, j ] > 0 ) then max1:= a [ i, j ] ;
if (a [ i, j ] > max2) and (a[ i, j ] < 0 ) then max2:= a [ i, j ] ;
end;
writeln('Наибольший отрицательный элемент =', max2 );
writeln('Наибольший положительный элемент =', max1 );
end.

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

print *,maxval(a,mask=a.gt.0),maxval(a,mask=a.lt.0) верно

- тебе на каком языке - на компилируемом? интерпретируемом? в машинных кодах?
-- какую ОС использовать?
-- какой компилятор или интерпретатор?
-- и вообще задача разбита на две подзадачи - номер 1 создать массив данных произвольной длинны и заполнить его любым мусором - номер 2 прогнать по всему массиву и поискать (минимальный/максимальный) элемент методом полного опроса всех с каждым а в целом удиви препода (с учетом того шо задача поставлена в корне не корректно нада срочно плюнуть ему в лицо) такой постановкой и решением как описанно тут (http://ru.wikipedia.org/wiki/%D0%90%D0%BB%D0%B3%D0%BE%D1%80%D0%B8%D1%82%D0%BC_%D1%81%D0%BE%D1%80%D1%82%D0%B8%D1%80%D0%BE%D0%B2%D0%BA%D0%B8) те выбери вариант сортировки (от большего к меньшему) и бери первый элемент как самый мелкий и последний как самый большой.

ЗЫ: а вообще чувак плюнь на лекции и практику и читай Харви и Пола Дейтлов "как программировать на С++" и обязательно решай все задачи в конце учебника - 100% пудоф препод брал оттуда все. ах да - не учи Паскаль и С# по причине того шо создал их один и тотже Мудило-Гнойный который пашет на мелкософт а до того пахал на Борланд.

да