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

Найти первый положительный минимальный элемент массива, и переставить его на первое место

19.11.2014, 12:00. Показов 1606. Ответов 1
Метки нет (Все метки)

Помогите решить,язык Pascal abc
Дан массив из n<=50 вещественных чисел,среди которых есть одинаковые элементы.Найти первый положительный минимальный элемент и переставить его на первое место.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2014, 12:00
Ответы с готовыми решениями:

Найти максимальный элемент массива, переставить его на первое место, сдвинув остальные
Дело такое, нужно сделать программки в Delphi №1 &quot;дан массив А, где N - кол-во элементов...

Найти минимальный элемент массива, поставить его на первое место, остальные элементы сдвинуть
а)Дана последовательность n элементов в виде массива. Найти минимальный элемент массива,паставить...

Поставить минимальный элемент в начале массива перенося первый элемент на его место
1) Пользователем вводится одномерный массив целых чисел. Программа должна поставить минимальный...

В каждом столбце матрицы [nxn] найти положительный минимальный элемент и поместить его на соответствующее место главной диагонали
В каждом столбце матрицы найти положительный минимальный элемент и поместить его на...

1
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
19.11.2014, 14:39 2
Лучший ответ Сообщение было отмечено Vladislav999 как решение

Решение

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
{Дан массив из n<=50 вещественных чисел,среди которых есть одинаковые
элементы.Найти первый положительный минимальный элемент и переставить
его на первое место.}
const
  n=15;
var
  a:array[1..n] of real;
  min:real;
  i,imin,k:integer;
begin
  imin:=0;
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random*n - n div 2;
      if a[i]>0 then
        imin:=i;
      write(a[i]:8:2);
    end;
  for i:=1 to n do
    if a[i]>0 then
      begin
        imin:=i;
        break;
      end;
 
  writeln;
  if imin=0 then
    begin
      writeln('В массиве нет положительных элементов. Выход.');  exit;
    end
  else
    begin
      min:=a[imin];
      for i:=imin to n do
        if (a[i]>0) and (a[i]<min) then
          begin
            min:=a[i];
            k:=i;
          end;
      writeln('Минимум: ',min:8:2,', в позиции: ',k);
      a[1]:=a[k];
    end;
  for i:=1 to n do
    write(a[i]:8:2);
 
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2014, 14:39
Помогаю со студенческими работами здесь

Найти максимальный элемент первого массива и поместить его на первое место второго массива
Здравствуйте. Было дано задание : Имеется Первый одномерный массив из N целых чисел, среди которых...

Определить первый положительный минимальный элемент и его позицию в массиве
Определить первый положительный минимальный элемент и его позицию в массиве, а также количество...

Найти первый положительный элемент массива, величина которого не превышает заданной величины, возвести его в квадрат и
Требуется помощь_) - Найти первый положительный элемент массива, величина которого не превышает...

Переставить первый элемент массива на k место по правилу
Напишите программу, которая печатает те элементы массива, индексы которых... переставляет первый...


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

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

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