Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Рыбоеж
15 / 15 / 21
Регистрация: 24.09.2014
Сообщений: 76
#1

Поменять местами самый правый минимальный элемент со вторым элементом массива

17.12.2014, 20:09. Просмотров 889. Ответов 1
Метки нет (Все метки)

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

Найти минимальный элемент и поменять его местами со вторым элементом первой строки массива
Найти минимальный элемент и поменять его местами со вторым элементом первой строки массива. Массив...

Найти минимальный элемент и поменять его местами с третьим элементом второго столбца массива
Дан двумерный массив, который содержит не более 30 строк и не более 10 столбцов. Найти минимальный...

Поменять местами самый первый элемент массива и самый большой
Вводится какой-нибудь массив, поменять местами самый первый элемент массива и самый большой

Поменять местами первый минимальный элемент с первым элементом
Написать программу с использованием процедур. Поменять местами последний элемент с первым....

Найти минимальный элемент и поменять его местами с девятым элементом
Всем, кому интересно! Дан одномерный массив, который содержит не более 100 целых чисел. Найти...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3861 / 2847 / 3632
Регистрация: 05.06.2014
Сообщений: 13,960
18.12.2014, 12:00 #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
40
41
42
43
44
45
46
47
var
  a: array[1..100] of real;
  num, i, n: integer;
  min, R: real;
 
begin
  randomize;
  write('Введите размерность массива: ');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(n);
    write(' ', a[i]:6:2)
  end;
  writeln;
  min := a[1];
  num := 1;
  for i := 2 to n do
    if a[i] <= min then
    begin
      min := a[i];
      num := i
    end;
  writeln('Минимальный элемент = ', min:6:2,'  с индексом: ',num);
  R := a[2];
  a[2] := a[num];
  a[num] := R;
  writeln('Измененный массив с заменой:');
 
  for i := 1 to n do
    write(' ', a[i]:6:2);
  if min<>0 then
    begin
      writeln;
      writeln('Измененный массив с делением:');
      for i := 1 to n div 2 do
        a[i]:=a[i]/min;
      for i := 1 to n do
        write(' ', a[i]:6:2);
    end
  else
    begin
      writeln;
      writeln('Операция невозможна, минимум = 0!');
    end;
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2014, 12:00

Первый элемент массива поменять местами с максимальным элементом
Составить программу, которая заполняет массив a случайными числами в диапазоне от 0 до 10, затем...

Поменять местами минимальный элемент массива и первый элемент, имеющий нулевое значение
Поменять местами минимальный элемент массива и первый элемент, имеющий нулевое значение. Вот...

В одномерном массиве максимальный элемент поменять местами с последним элементом массива
Пожалуйста помогите решить: В заданном одномерном массиве найти максимальный элемент и поменять...


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

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

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