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

Найти минимальное число, присвоить его значение первому элементу массива, а вместо минимального числа записать 10

28.10.2013, 11:42. Просмотров 1466. Ответов 4
Метки нет (Все метки)


Найти минимальное число, присвоить его значение первому элементу массива, а вместо минимального числа записать 10
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.10.2013, 11:42
Ответы с готовыми решениями:

Найти максимальное число, присвоить его значение последнему элементу массива, вместо максимального числа записать –I
В этой задаче предполагается, что задан одномерный массив с произвольным именем из N элементов....

Найти максимальное число, присвоить его значение последнему элементу массива, вместо максимального числа записать –I
Найти максимальное число, присвоить его значение последнему элементу массива, вместо максимального...

Найти максимальное число, присвоить его значение последнему эл-ту массива, а вместо минимального записать 3n
Помогите написать программу. Нужно найти максимальное число, присвоить его значение последнему...

Найти максимальное число, присвоить его значение последнему элементу массива, вместо максимального числа
Найти максимальное число, присвоить его значение последнему элементу массива, вместо максимального...

4
990 / 514 / 102
Регистрация: 19.03.2013
Сообщений: 3,113
Записей в блоге: 19
28.10.2013, 12:01 2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
const N = 10; // размер массива
type tArray = array[1..N] of integer;
 
var
 myArr: tArray;
 min_ind:integer;
 
  // процедура заполняет массив типа tArray размера size
 procedure FillArray(size:integer;var arr:tArray);
 var i:integer;
 begin
  writeln('Введите одномерный массив размера ', size);
  for i:=1 to size do
   read(arr[i]);
 end;
 
    // процедура для заполнения массива типа tArr[n] random
  // @param a,b - диапазон рандома
 procedure RandomFillArray1(n,a,b:integer;var arr:tArray);
 var i:integer;
 begin
 randomize;
  for i:=1 to n do
    arr[i]:=random(b-a+1)+a;
 end;
 
 // Возвращает максимальный или минимальный элемент массива
  // @param maxmin  Принимает значения 'max' и 'min'. В первом случае возвращает максимальный элемент,
  // во втором случае минимальный
  // @param arr Вычисляемый массив
  // return элемент массива (integer)
  function GetMaxMinElem(maxmin:string;arr:TArray):integer;
  var m,i:integer;
  begin
  m:=arr[1];
  if maxmin = 'max' then
  begin
    for i:=2 to n do
      if m<arr[i] then m:=arr[i];
  end;
  if maxmin = 'min' then
  begin
    for i:=2 to n do
      if m>arr[i] then m:=arr[i];
  end;
    GetMaxMinElem:=m;
  end;
 
    // Возвращает индекс максимального или минимального  элемента массива
  // @param maxmin  Принимает значения 'max' и 'min'. В первом случае возвращает индекс максимального элемент,
  // во втором случае минимального
  // @param arr Вычисляемый массив
  // return индекс элемента массива (integer)
  function GetMaxMinElemIndex(maxmin:string;arr:TArray):integer;
  var m,i,index:integer;
  begin
  m:=arr[1];
  index:=1;
  if maxmin = 'max' then
  begin
    for i:=2 to n do
      if m<arr[i] then begin m:=arr[i]; index:=i; end;
  end;
  if maxmin = 'min' then
  begin
    for i:=2 to n do
      if m>arr[i] then begin m:=arr[i]; index:=i; end;
  end;
    GetMaxMinElemIndex:=index;
  end;
  
   // процедура печатает массив tArray размера size
 procedure PrintArr(size:integer;arr:tArray);
 var i:integer;
 begin
    for i:=1 to size do
     write(arr[i],' ');
     writeln;
 end;
  
  begin
     RandomFillArray1(n,-100,100,myArr);
     PrintArr(n,myArr);
     min_ind:=GetMaxMinElemIndex('min',myArr);
     myArr[1]:= GetMaxMinElem('min',myArr);
     myArr[min_ind]:=10;
     PrintArr(n,myArr);
  end.
0
Модератор
1618 / 1075 / 483
Регистрация: 17.07.2012
Сообщений: 5,303
28.10.2013, 17:09 3
chizz, а зачем столько подпрограмм?Все ж проще вроде бы.
0
990 / 514 / 102
Регистрация: 19.03.2013
Сообщений: 3,113
Записей в блоге: 19
28.10.2013, 19:53 4
А потому что "проще" понятие относительное. Вот мне проще готовые подпрограммы использовать, чем с нуля всё писать.
0
Модератор
1618 / 1075 / 483
Регистрация: 17.07.2012
Сообщений: 5,303
29.10.2013, 00:03 5
Цитата Сообщение от chizz Посмотреть сообщение
А потому что "проще" понятие относительное.
Наверно,вы правы.

Не по теме:

А почему статус такой смешной?Взяли перевернули слово "форумчанин".

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.10.2013, 00:03

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

Найти минимальное число и присвоить его значение второму элементу массива
найти минимальное число и присвоить его значение второму элементу массива.паскаль. помогите...

Найти минимальное число, присвоить его значение последнему элементу массива
Найти минимальное число, присвоить его значение последнему элементу массива, а вместо манимального...

Найти минимальное число и присвоить его значение элементу с номером
Составить графическую схему алгоритма и написать программу. Ниже приведенная задача...

Присвоить последнему элементу массива значение максимума, а вместо максимального числа записать -1
Найти максимальный элемент, присвоить его значение последнему элементу массива, а вместо...


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

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

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