Автор 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]. Составить программу...