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

ответ:

var

  a: array[1..10] 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

      b: =b+1;

    end;

  writeln(b);

  for i: = 1 to n do

    write(a[i],' ');

end.

объяснение:

если я все правильно понял, нам надо найти количество замен элементов массива на минимум.

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.

1. 10

2. 12

3. 3

4. 22

5. 15

6. 34

7. 3

Часть 2

1. 

Var

 n:integer;

Begin

 Write('Введи число ');

 Readln(n);

 if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);

End.

2.

Var

 a,b:integer;

Begin

 Write('Введи числа ');

 Readln(a,b);

 if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);

End.

3.

Var

 n:integer;

Begin

 write('Введи двузначное число ');

 Readln(n);

 if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');

End.

Подробнее - на - ответ:

Объяснение:

<img src="{названия картинки}">

<img src="{названия картинки}">

<img src="{названия картинки}">

<img src="{названия картинки}">

<br>

<img src="{названия картинки}">

<img src="{названия картинки}">

<img src="{названия картинки}">

<br>

<img src="{названия картинки}">

<img src="{названия картинки}">

<br>

<img src="{названия картинки}">

<center>

<img src="{названия картинки}">

<br>

<img src="{названия картинки}">

<img src="{названия картинки}">

<br>

<img src="{названия картинки}">

<img src="{названия картинки}">

<img src="{названия картинки}">

<img src="{названия картинки}">

<br>

<img src="{названия картинки}">

<img src="{названия картинки}">

<br>

<img src="{названия картинки}">

</center>