Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » массив. пожалуйста помогите
массив. пожалуйста помогите
в массиве A(n) подсчитать количество минимальных элементов. турбо паскаль
1 | Автор: кот11 | 2015-11-12, 16:53   |  Репутация: [ + 0 ]
Цитата кот11 ()
подсчитать количество минимальных элементов.
Странная задача. Если речь идет о том, что есть повторяющиеся элементы совпадающие с минимальным значением, то еще можно понять задачу. Уточните, что имеется в виду.
2 | Автор: admin | 2015-11-12, 17:23   |  Репутация: [ + 21 ]
элементов с минимальным значение может быть несколько
3 | Автор: кот11 | 2015-11-12, 17:37   |  Репутация: [ + 0 ]

Код
program MinElem;
var Mymas : array of integer;
    i, //лiчильник
    num, //кількість елементів масиву
    min, //мінімальне значення
    count:integer;//кількість мінімальних елементів
begin
  writeln('Введіть кількість елементів масиву');
  readln(num); //зчитуєм кількість елементів масиву
  SetLength(Mymas,num); //задаємо його розмір
  
  min:= 32768; //мінімальне число = максимальному числу типу integer
  
  for i := 0 to num -1 do 
  begin
    writeln('Введіть ' , i + 1, '-й елемент масиву');
    readln(Mymas[i]); //запмсуемо число в масив
    if (min > Mymas[i]) then min := Mymas[i]; //зниходимо мінімум
  end;

  count:=0; //кількість мінімальних елементів спочатку = 0
  for i := 0 to num -1 do 
    if (min = Mymas[i]) then count := count + 1;
  
  writeln('Кількість мінімальних елементів = ',count,' ,мінімальний елемент = ',min);
  readln;
end.


Verhovny Menko
4 | Автор: Verhovny_Menko | 2015-11-12, 18:03   |  Репутация: [ + 7 ]
Вот вам решение вашей задачи:
Код
// Минимальные элементы в массиве
const n = 20;

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

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

// Вывод массива
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);
write('Позиция в массиве: ');
for i:=1 to n do

if a[i] = min then  
begin
k:=k+1;
write(i, '  ');
end;

writeln('Всего минимал.елементов: ',k);
end.

Проверить выполнение можно прямо на нашем сайте - здесь.
5 | Автор: admin | 2015-11-12, 18:07   |  Репутация: [ + 21 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » массив. пожалуйста помогите
Страница 1 из 11
Поиск: