М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
артем1151
артем1151
16.01.2021 04:24 •  Информатика

Дан массив . о пределить номер первого и последнего отрицательных элементов . вычислить сумму этих элементов в паскале

👇
Ответ:
crustiYurasova
crustiYurasova
16.01.2021
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var R := ArrRandom(20, -50, 50);

 R.Println;

 var i := R.IndexesOf(t -> t < 0);

 Println(i.First + 1, i.Last + 1);

 Println('Сумма равна', R[i.First] + R[i.Last])

end.

Пример

-9 41 -47 -25 22 -35 44 -2 -10 17 -17 -17 5 20 47 -43 3 -45 1 33

1 18

Сумма равна -54

4,4(88 оценок)
Открыть все ответы
Ответ:
Lina300333
Lina300333
16.01.2021

function F(x: real): real;

begin

 F := 3 * sin(x) + 2 * sqr(x) - 1;

end;

var

 a, b, h, x, Fa, Fx: real;

begin

 Write('Введите через пробел начало интервала, конец и шаг: ');

 Readln(a, b, h);

 x := a; Fa := F(a);

 repeat

   Fx := F(x);

   if Fx = 0 then Writeln('Найден корень ', x:0:3)

   else

   if Fx * Fa < 0 then

     Writeln('Найден интервал изоляции корня (', a:0:3, ';', x:0:3, ')');

   a := x; Fa := Fx; x := x + h

 until x > b;

end.

Тестовое решение:

Введите через пробел начало интервала, конец и шаг: 0 1.95 0.15

Найден интервал изоляции корня (0.150;0.300)

Введите через пробел начало интервала, конец и шаг: -5 5 0.1

Найден интервал изоляции корня (-1.500;-1.400)

Найден интервал изоляции корня (0.200;0.300)

Объяснение:

Лови! Удачки!
4,5(62 оценок)
Ответ:
svilli711
svilli711
16.01.2021

1)

import random

number_list = []

for n in range(10):

   number_list.append(random.randint(-10, 10))

print(number_list)

number_list = [number * -1 for number in number_list]

print(number_list)

2)

import random

number_list = []

for n in range(10):

   number_list.append(random.randint(-10, 10))

amount = 0

for number in number_list:

   amount += number

print(amount)

3)

import random

number_list = []

for i in range(10):

   number_list.append(random.randint(-10, 10))

number_list = [number ** 2 for number in number_list]

amount = 0

for n in number_list:

   amount += n

print(amount)

4)

import random

number_list = []

for n in range(10):

   number_list.append(random.randint(-10, 10))

negative_numbers = []

positive_numbers = []

for number in number_list:

   if number < 0:

       negative_numbers.append(number)

   elif number > 0:

       positive_numbers.append(number)

amount_positive = 0

amount_negative = 0

for n in negative_numbers:

   amount_negative += n

print('сумма отрицательных чисел: ' + str(amount_negative))

for p in positive_numbers:

   amount_positive += p

print('сумма положительных: ' + str(amount_positive))

4,7(89 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ