Question

СРОЧНО ДАЮ 50Б
Составить программу (в программе Паскаль или написать код в тетради у кого программа не работает)

1.В массиве из 10 элементов заполненном случайным порядком в диапазоне от 0 до 5 найти и подсчитать количество "единиц", найти среднее арифметическое элементов не равных "единице", подсчитать произведение всех элементов массива.

Answer 1

Пример решения на языке Паскаль:

program ArrayExample;

uses crt;

const

n = 10;

var

arr: array[1..n] of integer;

i, onesCount, nonOnesCount, prodCount: integer;

sum, avg: real;

begin

randomize;

// заполнение массива случайными числами от 0 до 5

for i := 1 to n do

arr[i] := random(6);

onesCount := 0;

nonOnesCount := 0;

sum := 0;

prodCount := 1;

// подсчет количества единиц, суммы элементов не равных единице и произведения всех элементов

for i := 1 to n do

begin

if arr[i] = 1 then

onesCount := onesCount + 1

else

begin

nonOnesCount := nonOnesCount + 1;

sum := sum + arr[i];

prodCount := prodCount * arr[i];

end;

end;

// вычисление среднего арифметического элементов не равных единице

if nonOnesCount > 0 then

avg := sum / nonOnesCount

else

avg := 0;

// вывод результатов

writeln('Массив: ');

for i := 1 to n do

write(arr[i], ' ');

writeln;

writeln('Количество единиц: ', onesCount);

writeln('Среднее арифметическое элементов не равных единице: ', avg:0:2);

writeln('Произведение всех элементов: ', prodCount);

readln;

end.