1 n 1 m



Автор Slava barashkin задал вопрос в разделе Другие языки и технологии

Задан числовой массив 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.

Ответ от Ѐоман Якимов[новичек]
да

Ответ от Cublen[гуру]
Если на ПАСКАЛе пиши на почту

Ответ от Алекс Куха[гуру]
print *,maxval(a,mask=a.gt.0),maxval(a,mask=a.lt.0)

Ответ от Imobilazer[гуру]
Составил

Ответ от Михей Шотов[активный]
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.

Ответ от Андрей Шевченко[новичек]
- тебе на каком языке - на компилируемом? интерпретируемом? в машинных кодах?
-- какую ОС использовать?
-- какой компилятор или интерпретатор?
-- и вообще задача разбита на две подзадачи - номер 1 создать массив данных произвольной длинны и заполнить его любым мусором - номер 2 прогнать по всему массиву и поискать (минимальный/максимальный) элемент методом полного опроса всех с каждым а в целом удиви препода (с учетом того шо задача поставлена в корне не корректно нада срочно плюнуть ему в лицо) такой постановкой и решением как описанно тут () те выбери вариант сортировки (от большего к меньшему) и бери первый элемент как самый мелкий и последний как самый большой.
ЗЫ: а вообще чувак плюнь на лекции и практику и читай Харви и Пола Дейтлов "как программировать на С++" и обязательно решай все задачи в конце учебника - 100% пудоф препод брал оттуда все. ах да - не учи Паскаль и С# по причине того шо создал их один и тотже Мудило-Гнойный который пашет на мелкософт а до того пахал на Борланд.

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

Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Задан числовой массив A[1:m, 1:n]. Составить программу...

Задание по алгебре.. . Я сколько не мучал свой мозг - ничего не понял)
неувязочка
даже если мэри на первом этаже, то номер этажа Джона будет 1, а номер квартиры Мери
подробнее...
спросили в Строки
Вопрос по PHP. Многомерный массив из строки.
>>скрипту передается строка, например, a/b/c/d. В самом скрипте нужно обработать эту строку
подробнее...
спросили в Randomness
Для чего в VB используются функции Rnd и Randomize?
Rnd - выдать случайное число (точнее псевдослучайное) .
А этот randomize используется для как
подробнее...

Как вычислить: (-10) в -3 степени, как вообще возводить в минусовую степень?
минусовая степень это корень, в данном случае корень 3ей степени.

cfifподробнее...
спросили в P
Если 2m+n=2; 2n+p=6 и 2p+m=4 то чему равно m+n+p?
1) 2m+n=2;
2) 2n+p=6;
3) 2p+m=4.

Сложив 1) + 2) + 3), получим:
3(m + n +
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:

1/2 в минус 2 степени. Можно объяснение принципа нахождения, пожалуйста?
При минусовой степени мы переворачиваем дробь, и у нас получается 2/1 во второй степени, то есть 2
подробнее...

0.1 мм в МКМ это сколько ???
Микрон (от греч. mikrón — малое) , дольная единица длины, равная 10-6 м, или 10-3 мм.
подробнее...

как найти массу 1 моля формула
n = m/M
m- масса
n-кол-во в-ва
M- молярная
подробнее...

Решите sin^2(x)+sin^2(5x)=1 Объясните как решить
Можно воспользоваться формулой понижения степени синуса sin^2(x)=(1-cos(2x))/2.
Тогда получим
подробнее...

Два сообщения содержат одинаковое количество символов. Количе-ство информации в первом тексте в 1,5 раза больше, чем во
да тут все просто, в диапазоне от 0 до десяти символов в алфавите входят только 2^1=2 символа 2^2
подробнее...

Как выразить переменную из формулы? 1/x=1/m+1/n; выразите переменную m и найдите её значение при x=1, n=2. ??
Выразить - это значит преобразовать равенство, чтобы слева было только m, а справа всё остальноеподробнее...
Задача Иосифа Флавия на Википедии
Посмотрите статью на википедии про Задача Иосифа Флавия
 

Ответить на вопрос:

Имя*

E-mail:*

Текст ответа:*
Проверочный код(введите 22):*