Предмет: Информатика,
автор: makskitaev
В массиве хранится информация о сопротивлении каждого 20 элементов электрической цени. Вес элементы соединены последовательно. Определить общее сопротивление цепи.
помогите написать программу
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Русский язык,
автор: beksyltandauletkerim
Предмет: Математика,
автор: abdulalievali08
Предмет: Геометрия,
автор: 145678910
Предмет: Литература,
автор: нармин7жасмин
Предмет: Математика,
автор: Emster