Составить программу (в Pascal) позволяющую найти минимальный элемент массива. Подсчитать...

Question

Составить программу (в Pascal) позволяющую найти минимальный элемент массива. Подсчитать количество элементов в массиве, равных минимальному. Размеренность массива произвольная.

Answer 1

Program my;
var  k,i,z:integer; 
     a:array[1...N]:integer; 
begin
k:=99999;
for i:=1 to N do                   
 if a[i]z:=0;
for i:=1 to N do 
 if a[i]=k then z:=z+1;
end.
=)  

Comments

а сам массив где задается?

---

ну и конечно можно вывести эти значения, уверен вы знаете как это сделать) удачи..!)

---

Плюс, на собственном опыте знаю, что нельзя минимальное значение (в Вашем случае k) задавать определенным числом. Если все элементы массива будут больше этого k, то и минимальный по такому коду найден не будет в данном массиве. Это не упрек, а просто совет. Примите к сведению, пожалуйста, пригодится.

---

И константу N Вы не описали.

---

Люди, которые знают паскаль, не будут выкладывать сюда подобные элементарные задачи, а значит и решение было бы желательно писать полностью. К тому же Ваша программа без ввода массива даже работать не будет.

---

спасибо

---

read(a[i]);

---

ну наверно не глупая сама напишет элементарную вещь)
ладно, для все кто в танке это делается так:
For i:=1 to N do

---

до begin он описывается, а не задается

---

до begin только я маленько не правильно записал его ... там после квадратных скобок должно of стоять кажется... не помню уже паскаль)

Answer 2

Uses crt;
const N=10;
var a:array [1..N] of integer;
     x,min,k:integer;
begin
for x:=1 to N do
begin
write('a[',x,']:',a[x]);
readln(a[x]);
end;
min:=a[1];
for x:=1 to N do
if a[x]for x:=1 to N do
if a[x]=min then inc(k);
writeln('Минимальный элемент: ',min,'. Таких элементов в массиве: ',k);
end.

Comments

Ну вообще-то переменную в массиве можно задать любой буквой, хоть i, хоть х, хоть любой другой. У меня вот х описана, и во всей программе х, то с чего бы ей быть i? Это не моя ошибка, а Ваше стремление уличить меня в неправоте, не зная хода моей программы.

---

А Вас просили решение. Мы не знаем уровня знаний этого языка пользователем. Если, допустим, она паскаль вообще не знает, то и дополнить она Ваш код никак не сможет, даже если очень захочет. И не только она. Таких пользователей здесь выше крыши. Некоторым приходится даже комментарий к каждой строчке расписывать.

---

так она и не должна работать...синтаксис тут не причем... я предоставил набросок кода...где показано как должна работать программа...

---

И впредь подобные ситуации лучше разрешать в личных сообщениях. Лишние уведомления другим пользователям ни к чему.

---

И, заметьте, я Вас ни разу не оскорбила, а Вы так и нарываетесь.

---

А нет, действительно, один раз выскочила i, описка вышла. Но это только потому что я тест не делала, ввиду того, что у меня под рукой паскаля нету. Но тем не менее в Вашей программе ошибок не просто больше, Ваша программа не будет работать совсем.

---

ты тормоз)) у тебя цикл через i прописан а элементы массива ты перебираешь через x ... позор... позор... ну как так можно а ещё людей учит... позор !!

---

Я могу объяснить, а нужно ли это пользователю, который попросил решение конкретной задачи?

---

ну раз ты такой выпендр... и думаешь что девушка не понимает элементарных вещей то наверно следуя твоей логики ты должен сейчас объяснить как работают функции что такое циклы и почему константа описывается до var-а ))

---

ты есть в ВК?