profile
Опубликовано 5 лет назад по предмету Информатика от 87877

Программа на паскале
В массив записаны случайные числа от 1 до 10 , количество элементов в массиве 10000. Определить какое число чаще всего повторяется

  1. Ответ
    Ответ дан alamar
    Для этого задания необязательно делать массив из 10000 элементов , но если надо то вот простейший вариант.

    var
    a:array[1..10000] of byte;
    count:array[1..10] of integer;
    i, max, index:integer;
    begin
    for i:=1 to 10000 do
        begin
        a[i]:=random(10) + 1;
        inc(count[ a[i] ]);    
        end;    
    for i:=1 to 10 do
        if max < count[i] then        
            begin
            max:= count[i];
            index:= i;
            end;
    writeln(index,' Повторяется ',max);
    end.