Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
=Sedoy=
0 / 0 / 0
Регистрация: 13.05.2009
Сообщений: 20
1

Массив (min and max)

15.06.2009, 06:28. Просмотров 1063. Ответов 1
Метки нет (Все метки)

В заданной целочисленной массиве Anm поменять местами минимальный и максимальный элементы массивы.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.06.2009, 06:28
Ответы с готовыми решениями:

Найти max и min элементы массива y и сформировать массив z из элементов массива y, находящихся между max и min y. Записать массив z в обратном порядке
Дан массив Х{80 элементов}. Вычислить ...

Массив min и max
Добрый день! Помогите пожалуйста с задачей: Организуйте массив. Поменяйте...

Записи: выяснить max и min сроки хранения товаров на складе; max и min цену товаров до уценки и после уценки
Торговый склад производит уценку хранящейся продукции. Если продукция хранится...

Дан двумерный массив А. Найдите К = (max + min)/2
1. Дан двумерный массив А. Найдите К = (max + min)/2, где max – это наибольший...

Дан трёхмерный массив A(3,2,4).Составить программу определения значения max и min элементов и их координат.
Дан трёхмерный массив A(3,2,4).Составить программу определения значения max и...

1
mamedovvms
2918 / 839 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
15.06.2009, 06:42 2
Лучший ответ Сообщение было отмечено =Sedoy= как решение

Решение

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
uses crt;
 var a:array[1..100,1..100] of integer;
      n,m,i,j,min,kminx,kminy,p,kmaxy,kmaxx,max:integer;
begin
 clrscr;
 writeln('n,m ');
 readln(n,m);
 
for i:=1 to n do
 begin
  for  j:=1 to m do
   begin
    readln(a[i,j]);
    write(a[i,j]);
  end;
 writeln;
 end;
min:=a[1,1];
max:=a[1,1];
kminx:=1;
kminy:=1;
kmaxx:=1;
kmaxy:=1;
for i:=1 to n do
 for j:=1 to m do
  begin
   if min>a[i,j] then
                    begin
                      min:=a[i,j];
                      kminx:=i;
                      kminy:=y;
                    end;
   if max<a[i,j] then
                    begin
                      max:=a[i,j];
                      kmaxx:=i;
                      kmaxy:=y;
                    end;
 
  end;
p:=a[kmaxx,kmaxy];
a[kmaxx,kmaxy]:=a[kminx,kminy];
a[kminx,kminy]:=p;
 
for i:=1 to n do
 begin
  for j:=1 to m do
   write(a[i,j]);
   writeln;
 end;
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2009, 06:42

Получить новый массив y из тех элементов массива, значение которых больше (max+min)/2
Блок схему и программу Дан массив действ чисел z1...z20. Получить новый массив...

Найти min(max(x, y), max(x, z), max(z, d))
Пожалуйста помогите написать программу на Паскале, так-как я в этом не силен...

Сформировать массив Z из элементов, находящихся между min и max элементов массива Z
дан массив из 100 элементов, Вычислить y1=xi2-3xi+2/xi2+2xi-1. сформировать...


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

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

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