Задача на массивы.

[Roman1295]

Всем добрый день! Условия задачи таковы: Определить, содержит ли массив элементы, равные минимальному элементу.
Как я понял:
Сначала объявляем переменные. Заполняем массив рандомными числами.
Условно принимаем 1 элемент массива за минимальное значение.
Запускаем цикл и сравниваем каждый элемент с минимальным значением. Если результат меньше - присваиваем новому значению минимальное, а в конце цикла выводим.
Что получилось:

var min,i:integer; mas: Array[1..20] of integer;
begin
for i:=1 to 20 do
mas[i]:=random(100);
min:=mas[1];             
for i:=2 to 20 do
if mas[i]<min then
mas[i]:=min;    
writeln(min); end.

Он выводит какие-то два числа. Я так и не понял, решил ли задачу или нет?

И еще задача, условие которой я не совсем понял. Кто-нибудь сможет объяснить условие по-другому?
(i и i-(+)1 - это нижний индекс).
Вывести номера локальных максимумов, т.е. таких Ai, что
A i-1 < Ai >A i+1

[veniside]

> Определить, содержит ли массив элементы, равные минимальному элементу.

любой не пустой массив содержит как минимум 1 элемент, равный минимальному )

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


> выводит какие-то два числа

какие ещё 2 числа, у вас один writeln()


> решил ли задачу или нет

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


> объяснить условие по-другому?

вывести индексы чисел, которые больше двух рядомстоящих соседей

[domovou]

var min,i,c:integer;
mas: Array[1..20] of integer;
begin
randomize;
for i:=1 to 20 do begin
    mas[i]:=random(30);
    write(mas[i]:3)
    end;
min:=mas[1];
for i:=1 to 20 do
    if mas[i]<min then
       min:=mas[i];
c:=0;
for i:=1 to 20 do
    if mas[i]=min then
       inc(c);
writeln;
writeln('Минимальный элемент = ',min,' и встречайтся ',c-1,' раз');
end.