Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
ксюся
1

В исходном массиве найти и поменять местами первое минимальное и последнее максимальное значение))

10.03.2010, 23:50. Просмотров 1474. Ответов 2
Метки нет (Все метки)

А-исходный массив ( 5;-8;6;-7;-8;6;-8;6;4)

-8 первое min значение
6 последнее max значение

А-результат (5;6;6;-7;8;6;-8;-8;4)




прошу помощи в составлении проги
заранее благодарю !!!!!!!
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.03.2010, 23:50
Ответы с готовыми решениями:

Функция: поменять местами минимальное и максимальное значение в массиве
Составить программу , в результате работы которой минимальное и максимальное значение массивов С...

Найти максимальное и минимальное значение матрицы и поменять их местами
Найти максимальное и минимальное значение матрицы и поменять их местами

Найти минимальное и максимальное значение массива, поменять их местами
1)Сгенерировать массив из 10 вещественных элементов, лежащих в диапазоне от -20 до 20. Найти...

Найти и поменять местами элементы, имеющие минимальное и максимальное значения в массиве
#include <iostream.h> #include <math.h> int main() { int

2
Retired
7720 / 2552 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
11.03.2010, 01:23 2
Лучший ответ Сообщение было отмечено как решение

Решение

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
uses
  Crt;
const
  N = 10;
var
  a: array [1..N] of integer;
  i,max,min: integer;
begin
  ClrScr;
  max := 1;
  min := 1;
  WriteLn('Èñõîäíûé ìàññèâ:');
  for i := 1 to N do
  begin
    a[i] := Random(8)-4;
    if a[i] >= a[max] then
      max := i
    else
      if a[i] < a[min] then
        min := i;
    Write(a[i]:2, ' ')
  end;
  WriteLn;
  WriteLn('a[',max,'] - ýòî ìàêñèìàëüíûé');
  WriteLn('a[',min,'] - ýòî ìèíèìàëüíûé');
  i:=a[max];
  a[max]:=a[min];
  a[min]:=i;
  WriteLn('Ïîëó÷åííûé ìàññèâ:');
  for i := 1 to N do
  begin
    if (i = max) or (i = min) then
      TextColor(4)
    else
      TextColor(0);
    Write(a[i]:2, ' ');
  end;
  ReadLn
end.
1
ксюся
11.03.2010, 15:53 3
Аа просто огромное спасибо!!!!
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.03.2010, 15:53

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

Найти максимальное и минимальное значение массива, затем поменять их местами
кто может помочь исправить ошибку, нужно найти максимальное и минимальное значение массива, затем...

Найти минимальное и максимальное значение в массиве и обменять их местами
Задание. Составьте алгоритм и программу выполнения варианта задания для одномерных массивов и...


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

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

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