Написать полностью программу turbo pascal : найти сумму отрицательных элементов массива

Ответ:

Rainbow619

25.09.2020 22:21

Const
    n = 10;

var
    a: array[1..n] of integer;
    i, s: integer;

begin
    s := 0;
    for i := 1 to n do
    begin
        a[i] := random(20) - 10;
        if (a[i] < 0) then s := s + a[i];
    end;
    writeln(s);
end.

0,0(0 оценок)

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

seba777

14.07.2022 16:31

Имеется калькулятор, который может выполнять только две команды: 1) прибавить 2; 2) умножить на 3. какое минимальное число команд потребуется, чтобы с этого калькулятора из...

Касандра0077

14.11.2022 13:37

Масштаб и размер памятника клавиатуре....

ancelina1234

01.06.2020 06:15

Некоторый сегмент сети интернет состоит из 1000 сайтов. в таблице запросы и количество найденных по ним страниц в этом сегменте сети: черника 450 формулы? малина 350 формулы?...

Сива11

14.03.2022 18:42

Догадайся, каким буквам соответствуют цифры на картинке, и запиши известное выражение: 1, 2, 10, 4 - 3, 12, 2, 8, 11...

kekIvanovi4

01.06.2020 01:29

Напишите программу, которая в последовательности целых чисел определяет значение наибольшего числа из всех нечетных введенных чисел. программа получает на вход целые положительные...

нананавай

01.06.2020 01:29

Один путешественник увидел в экспедиции странную табличку: жгдры йкяг. он испугался, а стоило ли? что тут зашифровано? подсказка: посмотри на соседние буквы в алфавите. здесь...

елен9

08.04.2022 04:43

Известны данные о марках автомобилей и их стоимости(лада-400тыс,бмв-700тыс,шеврале-800тыс,нисан-1000000).необходимо обеспечить ввод этих данных в программу,после этого следует...

trofimka31

06.03.2023 05:15

Найдите ошибки при наборе текста, тема по информатике: правила набора текста в текстовом редакторе. . император павел 1 возвел в княжеское достоинство пять фамилий: безбородко,...

sashapalchak

22.02.2020 15:09

Известны данные о марках автомобилей и их стоимости.необходимо обеспечить ввод этих данных в программу,после этого следует найти авто максимально близкий к средней стоимости,вычисленный...

Алина007485

07.03.2023 19:41

Вопрос: выберите названия текстовых редакторов, которые относятся к издательским системам. выберите несколько из 5 вариантов ответа: 1) corel venturalpublisher. 2) openoffice...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку