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

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

26.05.2013, 12:48. Просмотров 940. Ответов 4
Метки нет (Все метки)

Найти минимальный и максимальный элементы массива Х и поменять их в массиве местами. Элементы массива вычисляются по формуле Xi=((-1)^i)*((i^2)-3*i), где i=1,2.....,10
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2013, 12:48
Ответы с готовыми решениями:

Найти максимальный и минимальный элементы и поменять их местами
предусмотреть защиту от неправильного ввода данных (В массиве М(45) лежат целые...

Найти максимальный и минимальный элементы и поменять их местами
2)В массиве М(45) лежат целые числа. Найти максимальный элемент (первый) и...

Найти минимальный и максимальный элементы матрицы А и поменять их местами
Привет, уважаемые! Столкнулся с проблемой. Нужно решить следующие задачки: ...

Матрицы. Найти максимальный и минимальный элементы данного массива и поменять их местами
В TurboPascal 3)Дан двумерный массив размерностью N*M(N и M вводятся с...

В матрице найти, в каждой строке максимальный и минимальный элементы и поменять их местами
var a:array of integer; i,j,n,m,max,min,z:integer; begin writeln('n,m');...

4
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,719
Записей в блоге: 1
26.05.2013, 13:14 2
Лучший ответ Сообщение было отмечено mik-a-el как решение

Решение

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
Const n=10;
Var X:array[1..n] of integer;
    i,imax,imin:byte;
    t:integer;
Begin
    writeln('Исходный массив');
    For i:=1 to n do
    Begin
      if odd(i) then X[i]:=-i*i-3*i
       else X[i]:=i*i-3*i;
      write(X[i]:5);
    End;
    imax:=1;imin:=1;
    For i:=2 to n do
     if X[i]>X[imax] then imax:=i
      else if X[i]<X[imin] then imin:=i;
    writeln;
    writeln('Преобразованный массив');
    t:=X[imin];
    X[imin]:=X[imax];
    X[imax]:=t;
    For i:=1 to n do
     write(X[i]:5);
    readln;
End.
0
Валерьевна
0 / 0 / 0
Регистрация: 13.05.2013
Сообщений: 42
26.05.2013, 13:29  [ТС] 3
а почему не выдает именно максимальный и минимальный элементы?

Добавлено через 1 минуту
и что такое odd???
0
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,719
Записей в блоге: 1
26.05.2013, 13:39 4
Цитата Сообщение от Валерьевна Посмотреть сообщение
а почему не выдает именно максимальный и минимальный элементы?
сделай вывод их)
Pascal
1
2
writeln('Max = ',A[imax]);
writeln('Min = ',A[imin]);
odd(n) - если число n нечётное возвращает true,иначе false
1
Валерьевна
0 / 0 / 0
Регистрация: 13.05.2013
Сообщений: 42
26.05.2013, 13:52  [ТС] 5
спасибо большое
а это odd можно на что то другое заменить?
и куда вот эти именно правильно вставить writeln('Max = ',X[imax]);writeln('Min = ',X[imin])????????

Добавлено через 3 минуты
всё, уже сделала
0
26.05.2013, 13:52
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2013, 13:52

Массивы. Найти максимальный и минимальный элементы, определить их координаты и поменять местами
Дан массив. Количество элементов задано в программе. Элементы заданы случайным...

В заданной матрице В найти в каждой строке максимальный и минимальный элементы и поменять их местами
В заданной матрице В найти в каждой строке максимальный и минимальный элементы...

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


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

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

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