Задать вопрос
ИнформатикаИнформатика
30 апреля, 18:27

Вычислить сумму массива от 1 до 10 ... (в Delphi)

+3
Ответы (1)
  1. 30 апреля, 21:19
    0
    Для начала в теле программы в разделе переменных вводим исходные данные для массива. Должно выглядит так:

    var

    Form1: TForm1;

    massiv:array[1 ... 10] of integer;

    i, summ:integer; / / summ - это и будет сумма числе массива

    Далее, наносим на форму кнопку (Button1). Программируем ее двойным нажатием на нее, введя такой текст кода:

    summ:=0; / /обнуляем сумму

    For i:=1 to 10 do / / от 1 до 10 ...

    summ:=summ+massiv[i]; / / ... подсчитываем сумму чисел

    ShowMessage (IntToStr (sum)); / /вызываем процедуру показа сообщения, где выводим на экран сумму массива.

    //Функция IntToStr - преобразовывает числовое значение - в строчное.

    После запуска программы - нажимаете кнопку и будет выводиться сообщение с суммой элементов массива.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Вычислить сумму массива от 1 до 10 ... (в Delphi) ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
1) Найти сумму отрицательных элементов массива целых чисел. Размерность массива 10. Заполнение массива осуществить случайными числами от - 20 до 20. 2) Найдите сумму чётных элементов массива целых чисел. Размерность массива 20.
Ответы (1)
For i:=1 to N do Begin write ('C[', i,']='); readln (C[i]); end * Приведенный фрагмент программы, предназчен для 1 вывода массива в столбец 2 вывода массива в строку 3 формирования массива случайными числами 4 ввода массива с клавиатуры For i:=
Ответы (1)
1. Дан массив 1 2 3 4 5 6 7 8 7 0 - 8 - 4 2 16 - 10 2 А Определите: А) размерность массива; Б) значение элемента А[3]; В) значение максимального элемента массива; Г) индекс первого отрицательного элемента массива;
Ответы (1)
Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива. Размерность массива-20. Заполнение массива осуществить случайными числами от 150 до 300
Ответы (1)
Создать два одномерных массива, состоящих из целых чисел. Элементы массива вводятся с клавиатуры. В первом массиве найти номер первого нечетного элемента массива. Во втором массиве найти первый четный элемент массива.
Ответы (1)
Нужен ответ
1. Назовите город, правитель которого начал Троянскую войну. В каком веке это произошло? 2. Сформулируйте историческую причину начала Троянской войны? 3. Сформулируйте мифологическую причину начало Троянской войны?
Нет ответа
Используя свойство 3 степеней, запишите в виде степениа) (2^2) ^3 б) (3^4) ^2 в) (3^7) ^2 г) (5^3) ^4 д) (10^3) ^5 е) (7^2) ^4
Нет ответа
Расположите числа 5,28; - 1,634; - 1,34; - 1, (3); 2,3 (4) и 2, (34) в порядке убывания
Нет ответа
сравнить природные условия финикии древнего египта и индии
Нет ответа
Расстояние между двумя пунктами 40 км. Из одного из них в другой одновременно въезжают автобус и велосипедист. Скорость автобуса 50 км в час, велосипедиста 10 км в час.
Нет ответа
Главная » Информатика » Вычислить сумму массива от 1 до 10 ... (в Delphi)
Регистрация Забыл пароль