шаблоны сайт визитка joomla
Скачать шаблоны Joomla 3.5 бесплатно
Вы находитесь здесь:Главная»Учебные материалы»Pascal»Pascal. Сумма элементов в одномерном массиве.

Pascal. Сумма элементов в одномерном массиве.

Задача: Найти сумму элементов в одномерном массиве.

Решение: Сумма элементов массива находится путем прибавления элемента к прежнему значению переменной.

const max = 100;                            // опишем константу для размерноси массива

var a: array[1..max] of real;               // переменная а - массив вещественного типа 

n: integer;                                 // n - количество элементов массива

sum,  i: integer;                           // sum - сумма элементов массива

begin

write('Введите количество элементов массива: ');

readln(n);  

for i := 1 to n do

  begin

    write('a[',i,']=');                    

    readln(a[i]);                            //считывание элементов массива с клавиатуры 

  end;  

sum := 0; 

for i := 1 to n do sum := sum + a[i];       // суммируем элементы массива

writeln('Сумма элементов: ', sum:10:2);     // вывод значения суммы на экран

end.

Похожие материалы (по тегу)

Другие материалы в этой категории: « Pascal. Числовые типы данных. ООП в Pascal »

Новости о нас

 Главный робогород республики - Стерлитамак! Это доказал большой "РобоПром-2018", уже второй по счету. 200 участников, больше 1000 зрителей. Было по-настоящему масштабно! Подробнее
Занятия у нас - это глубокий курс по интересным и нужным в педагогической работе и в жизни... Подробнее
Объявляем конкурс творческих работ для ребят групп "Юный робототехник" и "Мобильная... Подробнее
Вернулись из Уфы с кубками и призами с робототехнического фестиваля Роболига 2018! Подробнее
Вот и завершилась наша третья поездка на Всероссийский робототехнический фестиваль... Подробнее

Наши партнеры

 TZOyoOCZ8y0 logotip novy SF BashGU  utv logo  CityMoll  VolnoeDelo