Question

Составить: программу на языке Паскаль. Срочно!!! Даю 30 баллов. 2 задачи! Просто написать программу на языке паскаль 1) Заполните одномерный массив из 15 элементов числами от -15 до 15 и выведите на экран сумму всех его отрицательных элементов. 2) Для целочисленного массива A[1:15] определите, является ли сумма его элементов четным числом. Выведите на печать “ДА” или “НЕТ”.

Answer 1

Ответ:

PascalABC.NET

#1

begin

 var A := ArrRandom(15, -15, 15).Where(x -> x < 0).Sum.Println;

end.

#2

//Под A[1:15] я понял индексы элементов.

begin

 var A := ArrRandom(15, -100, 100);

 if A.Sum mod 2 = 0 then Println('ДА')

 else Println('НЕТ');

end.

Answer 2

Вот решение задач на языке Паскаль:

1) Заполнить одномерный массив из 15 элементов числами от -15 до 15 и вывести на экран сумму всех его отрицательных элементов:

```pascal
program SumOfNegativeElements;

var
arrayA: array[1..15] of Integer;
sum: Integer;
i: Integer;

begin
sum := 0;

// Заполняем массив числами от -15 до 15
for i := 1 to 15 do
begin
arrayA[i] := i - 16;

// Проверяем, является ли элемент отрицательным
if arrayA[i] < 0 then
sum := sum + arrayA[i];
end;

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

end.
```


2) Для целочисленного массива A[1:15] определяем, является ли сумма его элементов четным числом и выводим на печать "ДА" или "НЕТ":

```pascal
program CheckSumIsEven;

var
arrayA: array[1..15] of Integer;
sum: Integer;
i: Integer;

begin
sum := 0;

// Заполняем массив числами
for i := 1 to 15 do
begin
arrayA[i] := i;
sum := sum + arrayA[i];
end;

// Проверяем, является ли сумма элементов массива четным числом
if sum mod 2 = 0 then
writeln('ДА')
else
writeln('НЕТ');

end.
```

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