В массиве хранится информация о сопротивлении каждого 20 элементов электрической цени. Вес элементы соединены последовательно. Определить общее сопротивление цепи. помогите написать программу
В массиве хранится информация о сопротивлении каждого 20 элементов электрической цени. Вес элементы соединены последовательно. Определить общее сопротивление цепи. помогите написать программу
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы