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

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

12.02.2019, 10:37. Показов 3114. Ответов 7

Задача 1. Массив X(50). Найти максимальный элемент массива и минимальный элемент массива и поменять их местами.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.02.2019, 10:37
Ответы с готовыми решениями:

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

Найти минимальный и максимальный элемент массива, поменять их местами
Вобщем ошибка выходит на этапе перестановок минимума и максимума const ni = 3; nj = 4; ...

Используя функцию swap поменять местами максимальный и минимальный элемент массива
Нужно задать массив и используя функцию swap поменять местами максимальный и минимальный элемент.

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

7
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7482 / 4354 / 2771
Регистрация: 22.11.2013
Сообщений: 12,481
Записей в блоге: 1
12.02.2019, 10:58 2
Pascal
1
2
3
4
5
  imn:=Low(x); imx:=Low(x);
  for i:=Low(x)+1 to High(x) do
    if x[imn]>x[i] then imn:=i
    else if x[imx]<x[i] then imx:=i;
  t:=x[imn]; x[imn]:=x[imx]; x[imx]:=t;
0
0 / 0 / 0
Регистрация: 12.02.2019
Сообщений: 22
12.02.2019, 12:17  [ТС] 3
Можно, пожалуйста, полную программу.
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
12.02.2019, 13:09 4
Цитата Сообщение от Nick_891 Посмотреть сообщение
полную программу.
Описание, объявление и заполнение массивов (матриц)
0
0 / 0 / 0
Регистрация: 12.02.2019
Сообщений: 22
12.02.2019, 14:31  [ТС] 5
Не получается сделать полную программу, всегда выдаются ошибки. Можно, пожалуйста, поподробнее.
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
12.02.2019, 14:33 6
Покажи свой код.
0
0 / 0 / 0
Регистрация: 12.02.2019
Сообщений: 22
13.02.2019, 08:47  [ТС] 7
Puporev, вот:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program PRIM1;
CONST N: =50
VAR I: INTEGER; X: REAL
M: ARRAY [1 . . N ] OF REAL;
BEGIN
WRITELN (’  ’);
imn:=Low(x); imx:=Low(x);
for i:=Low(x)+1 to High(x) do
if x[imn]>x[i] then imn:=i
else if x[imx]<x[i] then imx:=i;
t:=x[imn]; x[imn]:=x[imx]; x[imx]:=t;
End.
Я знаю, что тут есть ошибки, но я не силён в этой программе. Помогите, пожалуйста.
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
13.02.2019, 11:00 8
Лучший ответ Сообщение было отмечено Nick_891 как решение

Решение

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
program prim1;
uses crt;
const n=50;
var i,imn,imx: integer;
    t: real;
    x:array [1..n] of real;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  x[i]:=9*random;
  write(x[i]:5:2);
 end;
writeln;
imn:=1; imx:=1;
for i:=1 to n do
if x[imn]>x[i] then imn:=i
else if x[imx]<x[i] then imx:=i;
t:=x[imn]; x[imn]:=x[imx]; x[imx]:=t;
writeln('Минимальный элемент=',x[imn]:0:2,' его индекс=',imn);
writeln('Максимальный элемент=',x[imx]:0:2,' его индекс=',imx);
writeln('Обмен минимального и максимального');
for i:=1 to n do
write(x[i]:5:2);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.02.2019, 11:00
Помогаю со студенческими работами здесь

Поменять местами минимальный элемент первого массива и максимальный элемент второго массива
Нужно создать два массива( например A и D) состоящих из 10 элементов заданных случайным образом на...

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

Найти минимальный элемент одномерного массива и поменять местами пятый элемент с минимальным
Здравствуйте. Очень нужна ваша помощь в решении следующих задач: 3. Найти минимальный элемент...

Найти максимальный элемент одномерного массива и поменять местами второй элемент с максимальным
Здравствуйте! пожалуйста помогите сделать! Заранее большое спасибо!!! 1. Написать программу...


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

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

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