Составить: программу на языке паскаль.
! 30 . 2 ! просто написать программу на языке паскаль
1) заполните одномерный массив из 15 элементов числами от -15 до 15 и выведите на экран сумму всех его отрицательных элементов.
2) для целочисленного массива a[1: 15] определите, является ли сумма его элементов четным числом. выведите на печать “да” или “нет”.

Boss2009 Boss2009    3   21.01.2020 20:09    1

Ответы
Potap4uk Potap4uk  11.09.2020 17:50

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика