В ПАСКАЛЕ.дан массив из 20 чисел.найти сумму первых десяти (1..10),произведение последних десяти (11..20) и среднее арифметическое этих результатов.

Предыдущий
вопрос Следующий
вопрос

Для решения данной задачи можем написать следующий код на языке Pascal:

program SumMultAverage;
var
arr: array[1..20] of Integer;
i, sum, mult, average: Integer;
begin
{ Заполняем массив случайными числами }
Randomize;
for i := 1 to 20 do
begin
arr[i] := Random(100); // Генерируем случайное число от 0 до 99
end;
{ Находим сумму первых десяти чисел }
sum := 0;
for i := 1 to 10 do
begin
sum := sum + arr[i];
end;
{ Находим произведение последних десяти чисел }
mult := 1;
for i := 11 to 20 do
begin
mult := mult * arr[i];
end;
{ Находим среднее арифметическое суммы и произведения }
average := (sum + mult) div 2;
{ Выводим результаты на экран }
writeln('Сумма первых десяти чисел: ', sum);
writeln('Произведение последних десяти чисел: ', mult);
writeln('Среднее арифметическое: ', average);
end.

После выполнения данной программы на экран выведутся сумма первых 10 чисел, произведение последних 10 чисел и их среднее арифметическое.