Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.78
буська
0 / 0 / 0
Регистрация: 16.10.2010
Сообщений: 51
#1

Дан двумерный массив целых чисел. Найти произведение максимального и минимального элементов. - Turbo Pascal

26.02.2011, 10:19. Просмотров 1352. Ответов 1
Метки нет (Все метки)

Дан двумерный массив целых чисел. Найти произведение максимального и минимального элементов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2011, 10:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дан двумерный массив целых чисел. Найти произведение максимального и минимального элементов. (Turbo Pascal):

Дан массив целых чисел a1,...,an. Найти произведение максимального и минимального элементов
помогите...

Дан двумерный массив целых чисел. Найти количество нечетных элементов массива
Дан двумерный массив целых чисел. Найти количество нечетных элементов массива.

Дан двумерный массив целых чисел. Найти сумму элементов массива с нечетными индексами
Дан двумерный массив целых чисел. Найти сумму элементов массива с нечетными...

Дан двумерный массив целых чисел. Найти количество и сумму четных элементов массива
Дан двумерный массив целых чисел. Найти количество и сумму четных элементов...

Дан двумерный массив целых чисел. Найти сумму элементов массива с четными индексами
Дан двумерный массив целых чисел. Найти сумму элементов массива с четными...

Дан массив целых положительных чисел А1,А2,...Аn.Найти произведение элементов,больших заданного числа М
Дан массив целых положительных чисел А1,А2,...Аn.Найти произведение...

1
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
26.02.2011, 11:23 #2
Лучший ответ Сообщение было отмечено буська как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
max:=arr[1,1]; min:=arr[1,1];
for i:=1 to n do
for j:=1 to m do
begin
if arr[i,j]>max then
max:=arr[i,j];
if arr[i,j]<min then
min:=arr[i,j];
end;
writeln(min*max:4:2);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2011, 11:23
Привет! Вот еще темы с решениями:

Найти сумму минимального и максимального элементов файла целых чисел
заполнить файл последовательного доступа N действительными числами, полученными...

Дан массив целых чисел.Вычислить произведение элементов массива делящихся на 3
Дан массив целых чисел.Вычислить произведение элементов массива делящихся на 3....

Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на главной и побочной диагоналях
Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на...

Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на главной и побочной диагоналях
Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru