4. подсчитайте за один проход, сколько его элементов равны максимальному элементу. на вход программе сначала подается значение n< =100 – количество элементов в массиве. в следующей строке входных данных расположены сами элементы массива – целые числа, по модулю не превосходящие 30000. выдайте количество искомых элементов массива.

Ответы

Var a: array [1..100] of integer; i,n,k,mx: integer; begin writeln('введите n: '); readln(n); mx: =1; k: =0; writeln('введите массив: '); for i: =1 to n do begin readln(a[i]); if a[i]> a[mx] then begin mx: =i; k: =0; end else if (a[i]=a[mx])and(i< > mx) then k: =k+1; end; writeln('количество элементов массива равных максимальному: ',k); end.

Спасибо

Ответ дал: Гость

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

Ответ дал: Гость

function max (x,y : longint) : longint; begin if x> y then max: =x else max: =y; end; var k : longint; s : string; begin readln(s); while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin k: =k+1;

delete(s,max(max(pos('.',s),pos('! ',('? ',); end; writeln(k); end.