Почему не работает программа const nn=10000; var - вопрос №1232406100001 от 8800553535Qwerty 02.01.2023 14:58

Question

Информатика: Почему не работает программа const nn=10000; var a: array[1..nn] of integer; i,n,min,b: integer; begin readln(n); b: =0; for i: =1 to n do read(a[i]); a[1]: = min; for i: =1 to n do if a[i] min then begin a[i]: = min; b: =b+1; end; writeln(b); for i: = 1 to n do write(a[i], ); end. дан массив целых чисел а. найдите количество вхождений минимального элемента.

8800553535Qwerty · Answer

const

nn = 10000;

var

a: array[1..nn] of integer;

i, n, min, b: integer;

begin

readln(n);

b := 1;

for i := 1 to n do read(a[i]);

min := a[1];

for i := 2 to n do

if (a[i] < min) then

begin

min := a[i];

b := 1;

end

else if (a[i] = min) then b := b + 1;

writeln(b);

end.