Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Поиск max и min
Поиск в одномерном и двумерном массиве максимального значения и минимального.
размер массива вводить с клавиатуры, вывод массива построчно и заполнение
массива рандомно, т.е случайным образом
1 | Автор: Greschnik | 2015-12-04, 15:26   |  Репутация: [ + 0 ]
Одномерный массив(max) ,правильна?
const m = 20; 
var arr: array[1..m] of byte; max_num, max_index: byte; i: byte; 
begin randomize;
 
for i := 1 to m do begin arr := random(100); write (arr:3); end; 
max_index := 1; max_num := arr[1]; 
for i := 2 to m do if arr > max_num then begin max_index := i; max_num := arr
; end; 
writeln; writeln ('Max = ',max_num); writeln ('position: ', max_index); 
readlnend.
2 | Автор: Greschnik | 2015-12-04, 15:44   |  Репутация: [ + 0 ]
Код для вашего примера - поиск минимального элемента в массиве.
Код
// Минимальный элемент в массиве
const n = 10;

var
a: array [1..n] of integer;
i,min: integer;

begin
// Заполнение массива случайными числами
for i:=1 to n do
a[i] := Random(100);

// Вывод массива
write('Массив a: ');
for i:=1 to n do
write(a[i],' ');
writeln;

// Алгоритм вычисления минимального элемента
min := a[1];
for i:=2 to n do
if a[i] < min then
min := a[i];

writeln('Минимальный элемент в массиве = ',min);
end.

Для нахождения максимального надо просто поменять знак сравнения.
3 | Автор: admin | 2015-12-04, 21:09   |  Репутация: [ + 22 ]
3 | Автор: admin | 2015-12-04, 21:09   |  Репутация: [ + 22 ]
О спс мне тоже помогло

5550125555
4 | Автор: Hovo1233 | 2020-10-18, 20:58   |  Репутация: [ + 0 ]
Цитата admin ()
Код для вашего примера - поиск минимального элемента в массиве.
Все можно сделать  в одном цикле for

const
  n = 10;

var
  a: array [1..n] of integer;
  i, min: integer;

begin
  min := 100;         // Минимальный элемент в массиве
  for i := 1 to n do
  begin
    a := Random(100); // Заполнение массива случайными числами
    write(a, ' ');     // Вывод массива
    if a < min then // Алгоритм вычисления минимального элемента
      min := a
;
  end;
  writeln;
  writeln('Минимальный элемент в массиве = ', min);
end.


GeRa
5 | Автор: rageo | 2021-03-18, 13:32   |  Репутация: [ + 42 ]
  • Страница 1 из 1
  • 1
Поиск: