Question

Паскаль, 9 класс Дан массив целых чисел, состоящий из 10 элементов. Массив ввести с клавиатуры. Найти сумму отрицательных элементов. Найти количество тех элементов, значения которых положительны.

Answer 1

Программа:

Pascal:

var

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

 i, summ, n: integer;

begin

 writeln('Введите массив: ');

 for i := 1 to 10 do begin

   readln(arr[i]);

   if arr[i] > 0 then inc(n);

   if arr[i] < 0 then summ := summ + arr[i];

 end;

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

 writeln('Сумма отрицательных элементов: ', summ);

 writeln('Количество положительных элементов: ', n);

end.

Answer 2

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

1. Объявить и инициализировать переменные, которые будут хранить сумму отрицательных элементов и количество положительных элементов. ```pascal var arr: array[1..10] of integer; // массив из 10 элементов sumOfNegative: integer; // переменная для хранения суммы отрицательных элементов countOfPositive: integer; // переменная для хранения количества положительных элементов i: integer; // счетчик для цикла ```

2. Ввести массив с клавиатуры: ```pascal writeln('Введите элементы массива:'); for i := 1 to 10 do begin write('arr[', i, '] = '); readln(arr[i]); end; ```

3. Найти сумму отрицательных элементов: ```pascal sumOfNegative := 0; // инициализируем начальное значение суммы for i := 1 to 10 do begin if arr[i] < 0 then sumOfNegative := sumOfNegative + arr[i]; end; writeln('Сумма отрицательных элементов: ', sumOfNegative); ```

4. Найти количество положительных элементов: ```pascal countOfPositive := 0; // инициализируем начальное значение счетчика for i := 1 to 10 do begin if arr[i] > 0 then countOfPositive := countOfPositive + 1; end; writeln('Количество положительных элементов: ', countOfPositive); ```

5. Вывести результаты: ```pascal ```

Полный код программы: ```pascal var arr: array[1..10] of integer; sumOfNegative: integer; countOfPositive: integer; i: integer;

begin writeln('Введите элементы массива:'); for i := 1 to 10 do begin write('arr[', i, '] = '); readln(arr[i]); end;

sumOfNegative := 0; for i := 1 to 10 do begin if arr[i] < 0 then sumOfNegative := sumOfNegative + arr[i]; end; writeln('Сумма отрицательных элементов: ', sumOfNegative);

countOfPositive := 0; for i := 1 to 10 do begin if arr[i] > 0 then countOfPositive := countOfPositive + 1; end; writeln('Количество положительных элементов: ', countOfPositive); end. ```

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