Для целочисленного массива из 20 элементов вычислить количество элементов равных среднему арифметическому элементу массива(диапазон значений:от -10 до 15)
Для целочисленного массива из 20 элементов вычислить количество элементов равных среднему арифметическому элементу массива(диапазон значений:от -10 до 15)
Гость
Ответ(ы) на вопрос:
ГостьЭта программа может выглядеть так:
uses Crt;
const n=20;
type Mas=array [1..n] of integer;
var A: Mas;
i, Sum, Col, Sred: integer;
begin
ClrScr;
Randomize;
Sum:=0;
for i:=1 to n do
begin
A[i]:=-10+random(26);
Write (A[i]:4);
Sum:=Sum+A[i];
end;
WriteLn;
Sred:=Sum div n;
WriteLn('Srednee:',Sred:4);
Col:=0;
for i:=1 to n do
if A[i]=Sred then Col:=Col+1;
WriteLn('Col=', Col);
ReadLn;
end.
Не нашли ответ?
Похожие вопросы