Паскаль

1. Как заменить в целочисленном массиве A(10) все элементы, равные нулю, на число 1 и вывести новый массив на печать?
2. Как написать программу, которая заполнит массив из 20 элементов по формуле a(x) = 0,2x² - 3x + 0,1 и подсчитает сумму положительных элементов этого массива?

Информатика 8 класс Массивы и работа с ними в Паскале замена нуля в массиве программа на Паскале массив из 20 элементов сумма положительных элементов алгоритм работы с массивами Новый

Давайте разберем оба задания по порядку.

Задание 1: Заменить в целочисленном массиве A(10) все элементы, равные нулю, на число 1 и вывести новый массив на печать.

1. Сначала мы создадим целочисленный массив A размером 10.
2. Затем заполним массив некоторыми значениями, включая нули.
3. После этого мы пройдемся по всем элементам массива и заменим нули на единицы.
4. В конце выведем измененный массив на экран.

Пример кода на Паскале:

program ReplaceZeros;
var
    A: array[1..10] of integer;
    i: integer;
begin
    // Заполнение массива
    for i := 1 to 10 do
    begin
        A[i] := Random(3) - 1; // Генерируем числа -1, 0, 1
    end;

    // Замена нулей на единицы
    for i := 1 to 10 do
    begin
        if A[i] = 0 then
            A[i] := 1;
    end;

    // Вывод нового массива
    for i := 1 to 10 do
    begin
        Write(A[i], ' ');
    end;
end.

Задание 2: Написать программу, которая заполнит массив из 20 элементов по формуле a(x) = 0,2x² - 3x + 0,1 и подсчитает сумму положительных элементов этого массива.

1. Создадим массив из 20 элементов.
2. Заполним массив значениями, вычисленными по формуле для каждого индекса от 0 до 19.
3. Подсчитаем сумму положительных элементов массива.
4. Выведем массив и сумму положительных элементов на экран.

Пример кода на Паскале:

program FillArrayAndSum;
var
    A: array[0..19] of real;
    i: integer;
    sum: real;
begin
    sum := 0;

    // Заполнение массива по формуле
    for i := 0 to 19 do
    begin
        A[i] := 0.2 * i * i - 3 * i + 0.1;
    end;

    // Подсчет суммы положительных элементов
    for i := 0 to 19 do
    begin
        if A[i] > 0 then
            sum := sum + A[i];
    end;

    // Вывод массива
    for i := 0 to 19 do
    begin
        Write(A[i]:0:2, ' ');
    end;

    // Вывод суммы положительных элементов
    WriteLn;
    WriteLn('Сумма положительных элементов: ', sum:0:2);
end.

Таким образом, мы выполнили оба задания, создав и модифицировав массивы, а также подсчитав сумму положительных элементов. Если у вас есть вопросы, не стесняйтесь спрашивать!