ПОМОГИТЕ ДОПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ
нужно что бы она посчитала количество минимальных значений среди N чисел:
program DZ1;

var
N, K: integer;
A, min, T: real;

begin
writeln('Задайте кол-во чисел');
read(N);
write('Задайте первое число');
read(A);
min := A;
for K := 2 to N do
begin
write('Задайте', K, ' число');
read(A);
if A = min then min := A;
if A < min then min := A;
end;
writeln('Наименьшее число : ', min);
readln

end.

Ответы 1

Анонимный

7 лет назад

program DZ1;

var
N, K, S: integer;
A, min: real;

begin
writeln('Задайте кол-во чисел ');
read(N);
write('Задайте первое число ');
read(A);
min := A;
S := 1;
for K := 2 to N do
begin
write('Задайте ', K, ' число ');
read(A);
if A = min then S := S + 1;
if A < min then
begin
min := A;
S := 1;
end;
end;
writeln('Наименьшее число : ', min);
writeln('Количество вхождений : ', S);
end.

Предыдущий Следующий

Премиум статус

Получайте самые быстрые
ответы на свои вопросы

У вас остались
вопросы?