Составить программу (в Pascal) позволяющую найти минимальный элемент массива. Подсчитать количество элементов в массиве, равных минимальному. Размеренность массива произвольная.
Ответы
Ответ дал:
0
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.
=)
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.
=)
Ответ дал:
0
read(a[i]);
Ответ дал:
0
Люди, которые знают паскаль, не будут выкладывать сюда подобные элементарные задачи, а значит и решение было бы желательно писать полностью. К тому же Ваша программа без ввода массива даже работать не будет.
Ответ дал:
0
И константу N Вы не описали.
Ответ дал:
0
Плюс, на собственном опыте знаю, что нельзя минимальное значение (в Вашем случае k) задавать определенным числом. Если все элементы массива будут больше этого k, то и минимальный по такому коду найден не будет в данном массиве. Это не упрек, а просто совет. Примите к сведению, пожалуйста, пригодится.
Ответ дал:
0
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.
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.
Ответ дал:
0
И впредь подобные ситуации лучше разрешать в личных сообщениях. Лишние уведомления другим пользователям ни к чему.
Ответ дал:
0
А Вас просили решение. Мы не знаем уровня знаний этого языка пользователем. Если, допустим, она паскаль вообще не знает, то и дополнить она Ваш код никак не сможет, даже если очень захочет. И не только она. Таких пользователей здесь выше крыши. Некоторым приходится даже комментарий к каждой строчке расписывать.
Ответ дал:
0
ты есть в ВК?
Похожие вопросы
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад