Регистрация
SofiCoRainbow1
20.03.2022 07:50
Информатика
Есть ответ 👍

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

141
299
Посмотреть ответы 2

Ответы на вопрос:

egoskulik2015
egoskulik2015
4,7(88 оценок)

ответ:

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.

caramel1701
caramel1701
4,8(38 оценок)
//pascalabc.net //версия 3.3.5, сборка 1650 begin var n: =readinteger('n='); write(n,'! =',range(1,n).aggregate(real(,b)-> a*b)); end.

Популярно: Информатика