шаблоны сайт визитка joomla
Скачать шаблоны Joomla 3.5 бесплатно

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 »

Новости о нас

О победах наших воспитанников на ежегодных соревнованиях РобоКОД и на республиканском этапе Всероссийской робототехнической олимпиады Подробнее
Приглашаем Вас на летние репетиторские занятия! Для тех, кто выбирает подготовительные занятия... Подробнее
Детский технопарк Толтек СФ БашГУ планирует открыть первый в Стерлитамаке научный театр. Будет ли... Подробнее
Запишите Вашего ребенка на робототехнику до 5-го июня и получите дополнительный курс в подарок!... Подробнее
Объявляем набор в летний детский технокласс «Умное лето»! Заявки принимаются до 20 мая.... Подробнее

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

 TZOyoOCZ8y0 logotip novy SF BashGU  utv logo  CityMoll  VolnoeDelo