var arr: array[1..10] of Integer; i, count, sum: Integer; average: Real;
begin sum := 0; count := 0;
// Заполнение массива writeln('Введите 10 чисел:'); for i := 1 to 10 do readln(arr[i]);
// Вычисление среднего арифметического ненулевых чисел for i := 1 to 10 do begin if arr[i] <> 0 then begin sum := sum + arr[i]; count := count + 1; end; end;
if count <> 0 then average := sum / count else average := 0;
writeln('Среднее арифметическое всех ненулевых чисел: ', average:0:2); end.
program Average;
var
arr: array[1..10] of Integer;
i, count, sum: Integer;
average: Real;
begin
sum := 0;
count := 0;
// Заполнение массива
writeln('Введите 10 чисел:');
for i := 1 to 10 do
readln(arr[i]);
// Вычисление среднего арифметического ненулевых чисел
for i := 1 to 10 do
begin
if arr[i] <> 0 then
begin
sum := sum + arr[i];
count := count + 1;
end;
end;
if count <> 0 then
average := sum / count
else
average := 0;
writeln('Среднее арифметическое всех ненулевых чисел: ', average:0:2);
end.