Как сложить все элементы одномерного массива в Pascal?

Natalia992 22 июн. 2020 г., 23:41:40

Program P1 ;

var

a : array [1.

50] of integer ; {Переменная а - одномерный массив в 50 элементов} ;

S, I : integer ; {Переменная S - сумма элементов, I - счетчик цикла}

begin

randomize ; {включаем генератор случайных чисел} ;

S : = 0 ; {Обнуляем значение суммы}

for I : = 1 to 50 do {цикл в 50 повторений}

begin

a[i] : = random(201) - 100 ; {формируем 50 элементов массива случайным образом в интервале [ - 100 ; 100]}

S : = S + a[i] ; {Добавляем каждый элемент к значению суммы}

end ;

wrilteln('Сумма всех элементов', S) ; {выводим значение суммы}

end ;

Nemova2910 21 нояб. 2020 г., 05:14:51 | 10 - 11 классы

Вычислить произведение всех элементов одномерного массива В, в котором 20 элементов?

Вычислить произведение всех элементов одномерного массива В, в котором 20 элементов.

Инфинитив 23 июл. 2020 г., 13:42:12 | 10 - 11 классы

В одномерном массиве А , состоящий из N действительных элементов , вычислить : a ) сумму отрицательных элементов массива ; b ) количество элементов , удовлетворяющих условию 7 Pascal?

В одномерном массиве А , состоящий из N действительных элементов , вычислить : a ) сумму отрицательных элементов массива ; b ) количество элементов , удовлетворяющих условию 7 Pascal.

Диана131999 31 окт. 2020 г., 00:05:04 | 10 - 11 классы

Посчитать количество НЕ повторяющихся элементов в одномерном массиве?

Посчитать количество НЕ повторяющихся элементов в одномерном массиве.

Язык программирования : pascal или с + +.

Santalov87 8 авг. 2020 г., 01:21:28 | 1 - 4 классы

Составить процедуру для нахождения минимального по модулю элемента для каждого из двух заданных одномерных массивов?

Составить процедуру для нахождения минимального по модулю элемента для каждого из двух заданных одномерных массивов.

Pascal.

Burat125 21 янв. 2020 г., 05:39:06 | 10 - 11 классы

Написать программу на Pascal - В одномерном массиве целых чисел, содержащем 20 элементов, удалить k - ый элемент массива?

Написать программу на Pascal - В одномерном массиве целых чисел, содержащем 20 элементов, удалить k - ый элемент массива.

Массив заполняется случайным образом числами от 0 до 50.

Mint2009 19 дек. 2020 г., 18:48:29 | 10 - 11 классы

Дан одномерный массив, состоящий из 20 элементов?

Дан одномерный массив, состоящий из 20 элементов.

Найти сумму элементов массива, принадлежащих промежутку от А до В PASCAL.

Artem1918 1 янв. 2020 г., 05:23:47 | 10 - 11 классы

Создать два одномерных массива, состоящих из целых чисел?

Создать два одномерных массива, состоящих из целых чисел.

Элементы массива вводятся с клавиатуры.

В первом массиве найти номер первого нечетного элемента массива.

Во втором массиве найти первый четный элемент массива.

Решить на Pascal ABC (При решении задач обязательно использовать одномерные массивы и процедуры или функции работы с одномерными массивами.

).

DeadGirl5 6 сент. 2020 г., 01:59:41 | 10 - 11 классы

Turbo Pascal * * * * (Дан одномерный числовой массив?

Turbo Pascal * * * * (Дан одномерный числовой массив.

Определить произведение элементов массива, расположенных между максимальным и «центральным» элементами массива (предполагается, что число элементов – нечетное и максимальный единственный).

Snezhanapinchuk 5 нояб. 2020 г., 16:14:08 | 10 - 11 классы

Найдите сумму элементов трех одномерных массивов А(10), В(20), С(30)?

Найдите сумму элементов трех одномерных массивов А(10), В(20), С(30).

Вычислите суммы элементов одномерного массива , оформить в виде функции.

Помогать1 6 нояб. 2020 г., 19:51:15 | 5 - 9 классы

Pascal 1?

Pascal 1.

Найти среднее арифметическое положительных элементов одномерного массива.

2. Найти минимальный элемент одномерного массива.