Дз по информатике ВСЕ В ПАСКАЛЕ
1) Создать массив из 15 элементов, заполнить квадратами натуральных чисел, посчитать сумму и среднее арифметическое всех элементов
2) Создать массив из 15 элементов, заполнить случайными числами от 0 до 10, найти среднее арифметическое нечетных чисел

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

Примеры кода на Pascal:

1) Создание массива из 15 элементов, заполнение квадратами натуральных чисел и вычисление суммы и среднего арифметического:

program ArrayExample;
var
arr: array[1..15] of Integer;
sum, average: Real;
i: Integer;
begin
sum := 0;
for i := 1 to 15 do
begin
arr[i] := i * i;
sum := sum + arr[i];
end;
average := sum / 15;
writeln('Сумма элементов массива: ', sum);
writeln('Среднее арифметическое элементов массива: ', average:0:2);
end.

2) Создание массива из 15 элементов, заполнение случайными числами от 0 до 10 и вычисление среднего арифметического нечетных чисел:

program RandomArrayExample;
var
arr: array[1..15] of Integer;
sum, average: Real;
count, i: Integer;
begin
sum := 0;
count := 0;
Randomize;
for i := 1 to 15 do
begin
arr[i] := Random(11); // Генерация случайного числа от 0 до 10
if arr[i] mod 2 <> 0 then
begin
sum := sum + arr[i];
count := count + 1;
end;
end;
average := sum / count;
writeln('Сумма нечетных элементов массива: ', sum);
writeln('Среднее арифметическое нечетных элементов массива: ', average:0:2);
end.

Надеюсь, это поможет! Если у вас есть какие-либо вопросы или нужна дополнительная помощь, не стесняйтесь спрашивать.