шаблоны сайт визитка 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 »

Новости о нас

КАЖДУЮ ПЯТНИЦУ - бесплатное занятие по 3D-моделированию с 16:40 до 18:10. Только для учащихся нашего технопарка! Подробнее
 Региональный отборочный фестиваль "Робофест-Стерлитамак 2018" состоится 25-26 января в г.... Подробнее
В сезоне 2017/18 фестиваля «РобоФест Стерлитамак 2018» Региональный учебно-тренировочный сбор... Подробнее
ВНИМАНИЕ учащимся! Объявляем конкурс рисунков на тему "Робот моей мечты", который пройдет по двум... Подробнее
В нашем технопарке Толтек СФ БашГУ пройдут открытые ОТБОРОЧНЫЕ СОРЕВНОВАНИЯ для ВСЕХ возрастов и... Подробнее

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

 TZOyoOCZ8y0 logotip novy SF BashGU  utv logo  CityMoll  VolnoeDelo