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

August 2022 1 5 Report

Напишите программу, которая определяет сколько раз встречается максимальное число в и-той последовательности, ограниченная n значением. При этом каждое вводимое число должно храниться в памяти компьютера.

Answers & Comments

pacixor //Pascal
var
A: array of integer;
i, n, MAX, tmpCount: integer;
begin
write('Введите n = '); read(n);
SetLength(A, n);
MAX := 0;
for i := 0 to n-1 do
begin
    write('A[', i+1, '] = ');
    read(A[i]);
    if A[i] > MAX then
    begin
      tmpCount := 0;
      MAX := A[i];
      tmpCount := tmpCount + 1;
    end
    else
    if A[i] = MAX then tmpCount := tmpCount + 1;
end;
writeln('Максимальное число ',MAX,' встречается ',tmpCount,' раз.');
readln;
end.

Answers & Comments

zapishite elektroliz nino32 cuso4 na3po4 fes

napishite programmu opredelyayushuyu samogo starshego i samogo mladshego uchenika iz tr

kakie istoricheskie sobytiya opisyvayutsya v romane epopee tihij don srochno

18 svyaz genov s fermentami

podberite podchinitelnyj soyuz ogromnoe kolichestvo uglekislogo gaza vybrasyvaem51f8722e553a8fd4776c77b5efa31298 37886

podberite podchinitelnyj soyuz ogromnoe kolichestvo uglekislogo gaza vybrasyvaem

citogeneticheskie osnovy nasledstvennosti

metod analiza rodoslovnyh cheloveka

sovremennye metody analiza hromosom

geneticheskoe opredelenie pervichnoj struktury belka

рекомендуемые вопросы

Helpful Links

Helpful Social