Ответы
Ответ:
Объяснение:
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;