Почему не работает программа 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. дан массив целых чисел а. найдите количество вхождений минимального элемента.

ivandawidov ivandawidov    2   21.04.2019 20:38    0

Ответы
colins1987 colins1987  08.06.2020 04:29

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика