Question

ПОМОГИТЕ СРОЧНО!!!
Составить программу для нахождения минимального элемента массива чисел и посчитать их количество.
[20, -3, 5,34,-78, 45,-8, 11,-78, 247,113,56,31,-78]
Программу выполнить в среде программирования Паскаль.

Answer 1

Ответ:

const

N = 14;

var

numbers: array[1..N] of Integer;

min: Integer;

minCount: Integer;

i: Integer;

begin

numbers[1] := 20;

numbers[2] := -3;

numbers[3] := 5;

numbers[4] := 34;

numbers[5] := -78;

numbers[6] := 45;

numbers[7] := -8;

numbers[8] := 11;

numbers[9] := -78;

numbers[10] := 247;

numbers[11] := 113;

numbers[12] := 56;

numbers[13] := 31;

numbers[14] := -78;

min := numbers[1];

minCount := 1;

for i := 2 to N do

begin

if numbers[i] < min then

begin

min := numbers[i];

minCount := 1;

end

else if numbers[i] = min then

Inc(minCount);

end;

WriteLn('Минимальное число: ', min);

WriteLn('Количество минимальных чисел: ', minCount);

end.