Question

Помогите пожалуйста с заданием!!!​

Answer 1

Ответ:

Объяснение:

var

 a : array[1..10] of Integer;

 sArifm : Double;

 i, j, k: Integer;

begin

// тут мы не вводим с клавиатуры, а автоматом генерируем числа. Если надо, сделай тут ввод с клавиатуры.

 Randomize;

 for j := 1 to 10 do begin

   a[j] := Random(10);

   ListBox1.Items.Add(Format('%d', [a[j]]));

 end;

// поиск среднего арифметического

 sArifm := 0;

 for i := 1 to 10 do

   sArifm := sArifm + a[i];

 sArifm := sArifm/10;

 ListBox1.Items.Add(Format('Среднее арифметическое %f', [sArifm]));

// поиск повторяющихся цифр. Если цифра будет повторяться более 2 раз то наверняка надо дополнительную проверку устраивать или сначала сортировать, а потом проверять . По крайней мере в условии про это не сказано

  for i := 1 to 10 do begin

    k := 0;

    for j := i to 10 do

      if a[i]=a[j] then Inc(k);

    if k > 1 then

       ListBox1.Items.Add(Format('%d повторяется %d раз', [a[i], k]));

  end;

end;