Размещено 5 лет назад по предмету Информатика от dkapnina

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

Ответ на вопрос

Ответ на вопрос дан spel3fo

Program my;
var k,i,z:integer;
a:array[1...N]:integer;
begin
k:=99999;
for i:=1 to N do
if a[i]<k then k:=a[i];
z:=0;
for i:=1 to N do
if a[i]=k then z:=z+1;
end.
=)
1. Ответ на вопрос
  
  Ответ на вопрос дан spel3fo
  
  read(a[i]);
2. Ответ на вопрос
  
  Ответ на вопрос дан Sky09
  
  Люди, которые знают паскаль, не будут выкладывать сюда подобные элементарные задачи, а значит и решение было бы желательно писать полностью. К тому же Ваша программа без ввода массива даже работать не будет.
3. Ответ на вопрос
  
  Ответ на вопрос дан Sky09
  
  И константу N Вы не описали.
4. Ответ на вопрос
  
  Ответ на вопрос дан Sky09
  
  Плюс, на собственном опыте знаю, что нельзя минимальное значение (в Вашем случае k) задавать определенным числом. Если все элементы массива будут больше этого k, то и минимальный по такому коду найден не будет в данном массиве. Это не упрек, а просто совет. Примите к сведению, пожалуйста, пригодится.
Ответ на вопрос

Ответ на вопрос дан Sky09

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]<min then min:=a[x];
for x:=1 to N do
if a[x]=min then inc(k);
writeln('Минимальный элемент: ',min,'. Таких элементов в массиве: ',k);
end.
1. Ответ на вопрос
  
  Ответ на вопрос дан Sky09
  
  И впредь подобные ситуации лучше разрешать в личных сообщениях. Лишние уведомления другим пользователям ни к чему.
2. Ответ на вопрос
  
  Ответ на вопрос дан Sky09
  
  А Вас просили решение. Мы не знаем уровня знаний этого языка пользователем. Если, допустим, она паскаль вообще не знает, то и дополнить она Ваш код никак не сможет, даже если очень захочет. И не только она. Таких пользователей здесь выше крыши. Некоторым приходится даже комментарий к каждой строчке расписывать.
3. Ответ на вопрос
  
  Ответ на вопрос дан spel3fo
  
  ты есть в ВК?