ПОМОГИТЕ ДОПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ нужно что бы она посчитала количество минимальных значений среди N чисел: program DZ1; var N, K: integer; A, min, T: real; begin writeln('Задайте кол-во чисел'); read(N); write('Зад...
ПОМОГИТЕ ДОПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ
нужно что бы она посчитала количество минимальных значений среди 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.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы