В массиве хранится информация о сопротивлении каждого 20 элементов электрической цени. Вес элементы соединены последовательно. Определить общее
10-11 класс
|
сопротивление цепи.
VAR
i, sum: Integer;
a: Array [1..20] of Integer;
BEGIN
for i:= 1 to 20 do
Read(a[i]);
sum := 0;
for i := 1 to 20 do
sum := sum + a[i];
Write(sum);
END.
Другие вопросы из категории
Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры.
Найти:
-Удвоенную сумму положительных элементов;
вывести значения тех элементов, которые меньше заданного числа A кратны 3.
№2.)
Из элементов массива P сформировать массив M той же размерности по правилу: если номер четный, то M[i]=P[i]*P[i], если нечетный, то M[i]=P[i]-1.
№3.)
В массиве поменять местами 3 и последний элемент.
Читайте также
а) Все четные элементы
б) Все элементы, оканчивающиеся нулем.
2. В массиве хранится информация о количестве осадков, выпавших каждый день января. Определить, в какие числа месяца осадков не было.
Определить общую зарплату, выплаченную в июне.
В массиве хранится информация о баллах,
полученных спортсменом-десятиборцем в каждом из десяти видов спорта. Для выхода
в следующий этап соревнований общая сумма баллов должна превысить некоторое
известное значение. Определить вышел ли данный спортсмен в следующий этап
соревнований.