Автор 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)
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) верно
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.
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% пудоф препод брал оттуда все. ах да - не учи Паскаль и С# по причине того шо создал их один и тотже Мудило-Гнойный который пашет на мелкософт а до того пахал на Борланд.
- тебе на каком языке - на компилируемом? интерпретируемом? в машинных кодах?
-- какую ОС использовать?
-- какой компилятор или интерпретатор?
-- и вообще задача разбита на две подзадачи - номер 1 создать массив данных произвольной длинны и заполнить его любым мусором - номер 2 прогнать по всему массиву и поискать (минимальный/максимальный) элемент методом полного опроса всех с каждым а в целом удиви препода (с учетом того шо задача поставлена в корне не корректно нада срочно плюнуть ему в лицо) такой постановкой и решением как описанно тут () те выбери вариант сортировки (от большего к меньшему) и бери первый элемент как самый мелкий и последний как самый большой.
ЗЫ: а вообще чувак плюнь на лекции и практику и читай Харви и Пола Дейтлов "как программировать на С++" и обязательно решай все задачи в конце учебника - 100% пудоф препод брал оттуда все. ах да - не учи Паскаль и С# по причине того шо создал их один и тотже Мудило-Гнойный который пашет на мелкософт а до того пахал на Борланд.
Ответ от Андрей Познахарёв[гуру]
сортирни массив, например пузырьком. После этого беги по массиву и спрашивай: больше ли нуля следующий элемент, если взятый - отрицательный, если да, то он наибольший из отрицательных, ну, а наибольший из положительных - это крайний элемент массива. Ну и, естесственно, корректно обрабатывай те случаи, когда элемент массива - мусор, или нет вообще положительных или отрицательных чисел
сортирни массив, например пузырьком. После этого беги по массиву и спрашивай: больше ли нуля следующий элемент, если взятый - отрицательный, если да, то он наибольший из отрицательных, ну, а наибольший из положительных - это крайний элемент массива. Ну и, естесственно, корректно обрабатывай те случаи, когда элемент массива - мусор, или нет вообще положительных или отрицательных чисел
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Задан числовой массив A[1:m, 1:n]. Составить программу...
Задание по алгебре.. . Я сколько не мучал свой мозг - ничего не понял)
неувязочка
даже если мэри на первом этаже, то номер этажа Джона будет 1, а номер квартиры Мери
подробнее...
спросили в Строки
Вопрос по PHP. Многомерный массив из строки.
>>скрипту передается строка, например, a/b/c/d. В самом скрипте нужно обработать эту строку
подробнее...
Вопрос по PHP. Многомерный массив из строки.
>>скрипту передается строка, например, a/b/c/d. В самом скрипте нужно обработать эту строку
подробнее...
спросили в Randomness
Для чего в VB используются функции Rnd и Randomize?
Rnd - выдать случайное число (точнее псевдослучайное) .
А этот randomize используется для как
подробнее...
Для чего в 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 +
подробнее...
Если 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 мм.
подробнее...
спросили в Printing Randomness
Рандом в C++. Как выглядит? =rand() %n; Так выглядит рандом от 0 до числа "n" А как сделать рандом от n до n?
От 12 до 50
rand() % 39 + 12;
От X до Y
rand() % (Y - X + 1) +
подробнее...
Рандом в C++. Как выглядит? =rand() %n; Так выглядит рандом от 0 до числа "n" А как сделать рандом от n до n?
От 12 до 50
rand() % 39 + 12;
От X до Y
rand() % (Y - X + 1) +
подробнее...
Сколько будет в миллиметрах 1 микрон( толщина)?очень надо
а будет 1 мм = 0,001 м = 0,01 дм = 0,1 см = 1000
подробнее...
Решите 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, а справа всё остальное
подробнее...
спросили в Randomness
рандом в паскале. Как сделать так, чтобы рандомно выводился ряд цифр, напр.: 5 1 -4 9 -2 1
Как-то так:
const Rnd = array [0..5] of Shortint = (5, 1, -4, 9, -2, 1);
....
подробнее...
рандом в паскале. Как сделать так, чтобы рандомно выводился ряд цифр, напр.: 5 1 -4 9 -2 1
Как-то так:
const Rnd = array [0..5] of Shortint = (5, 1, -4, 9, -2, 1);
....
подробнее...