Дан одномерный массив определить сколько раз встречается минимальное число? решить в паскале

ответ:

var a: array [1..100] of integer;

    n,i,k,j: integer;

begin

write('введите количество чисел: '); readln(n);

for i: =1 to n do begin

write('от',i,'до: '); readln(a[i]);

end;

k: =a[1];

for i: =2 to n do if a[i]

for i: =1 to n do if a[i]=k then j: =j+1;

writeln('наибольшая последовательность минимума = ',j);

end.

ответ:

алгоритмическая структура (разветвляющий алгоритм) – это алгоритм, в котором в зависимости от условия выполняется либо одна, либо другая последовательность действий.

во многих случаях требуется, чтобы при одних условиях выполнялась одна последовательность действий, а при других - другая.

ветвление обеспечивающая выполнение определённой команды (набора команд) только при условии истинности некоторого логического выражения, либо выполнение одной из нескольких команд (наборов команд) в зависимости от значения некоторого выражения.

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! begin   var k: =0; ;   for var i: =10000 to 99999 do begin       var flag: =true;       var j: =2;       var r: =round(sqrt(i));       while flag and (j< =r) do           if i mod j = 0 then flag: =false           else j+=1;       if flag then k+=1       end;   writeln(k) end. результат 8363