8 / 8 / 0
Регистрация: 26.12.2009
Сообщений: 28
1

Найти максимальный и минимальный элементы и умножить их

27.12.2009, 17:12. Показов 536. Ответов 9
Метки нет (Все метки)

Дан массив. Найти максимальный и минимальный элементы и умножить их. помогите пожалуйста решить...
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.12.2009, 17:12
Ответы с готовыми решениями:

В матрице найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элементы
В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы с клавиатуры) найти минимальный и...

Найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элемент
3) В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы с клавиатуры) найти минимальный и...

Найти минимальный и максимальный элементы массива
Дан вещественный вектор X. Составить программу, которая обеспечит выбор и печать минимального и...

Найти максимальный и минимальный элементы массива
Заполнить массив из 10 элементов случайными числами в интервале и найти в нем максимальный и...

9
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
27.12.2009, 17:17 2
Pascal
1
2
3
4
5
6
7
8
9
10
max:=1;
min:=1;
 for i:=1 to n do
  begin
   if a[i]>max then
    max:=a[i];
   if a[i]<min then
    min:=a[i];
  end;
 Writeln('Pr ',min*max);
0
8 / 8 / 0
Регистрация: 26.12.2009
Сообщений: 28
27.12.2009, 17:29  [ТС] 3
razve eto massiv???!
0
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
27.12.2009, 17:30 4
а по вашему что это?
0
8 / 8 / 0
Регистрация: 26.12.2009
Сообщений: 28
27.12.2009, 20:46  [ТС] 5
a mojno po podrobnee!!! toest' ot na4alo do kontsa??!! pliz!!!
0
UNIX-way
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
27.12.2009, 20:49 6
Snoopy, я б так сделал:
Pascal
1
2
3
4
5
6
7
8
9
10
11
max:=a[1];//отредактировано
min:=a[1];//отредактировано
//при условии что массив объявлен как a:array[1..n] of что_нибудь;
 for i:=1 to n do
  begin
   if a[i]>max then
    max:=a[i];
   if a[i]<min then
    min:=a[i];
  end;
 Writeln('Pr ',min*max);
0
8 / 8 / 0
Регистрация: 26.12.2009
Сообщений: 28
27.12.2009, 21:00  [ТС] 7
a kak mne vbItbI4it' matritsu na ekran??!
0
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
27.12.2009, 21:06 8
какую матрицу?
1
8 / 8 / 0
Регистрация: 26.12.2009
Сообщений: 28
27.12.2009, 21:22  [ТС] 9
u menya dano matritsa!

Добавлено через 43 секунды
iz nego mado naiti min i max element i umnojit' ih!!
0
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
28.12.2009, 00:23 10
так значит нужно уточнять какой массив!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
const n=6;
var a:array[1..n,1..n] of integer;
   i,j,min,max:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10)-4;
     Write(a[i,j]:4);
    end;
   Writeln;
  end;  
Writeln;
min:=1;
max:=1;
 for i:=1 to n do
  for j:=1 to n do
   begin
    if a[i,j]>max then
     max:=a[i,j];
    if a[i,j]<min then 
     min:=a[i,j];
    end;
   Writeln('Min*max ',min*max);
  Readln;
 end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.12.2009, 00:23
Помогаю со студенческими работами здесь

Найти минимальный и максимальный элементы матрицы
Дана матрица А. а) найти минимальный и максимальный элементы матрицы б) определить число...

Найти минимальный и максимальный элементы массива
Помогите пожалуйста. 1) Дан массив А (10) целых чисел. Найти минимальный и максимальный элементы...

В массиве найти минимальный и максимальный элементы.
Дан массив целых чисел. Найти в этом массиве минимальный элемент m и максимальный элемент k....

Найти минимальный и максимальный элементы вектора
дан вектор b а)найти минимальный и максимальный элементы вектора. б)поменять местами максимальный...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru