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

Ответ

Автор - KnowsUser1

Ответ:

PascalABC.NET

begin

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

end.

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

begin

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

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

else Println('НЕТ');

end.

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

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.