Предмет: Информатика, автор: skrpvch

ребята, срочно очень, помогите, пожалуйста)) в масиві з 12 елементів знайти суму всіх
парних елементів в lazarus

poiklm246: a = [1,2,3,4,5,6,7,8,9,10,11,12]
b = 0
i = 0
while i in range(11):
b = b + int(a[i])

i = i+1

print(b)
но это питон

Ответы

Автор ответа: poiklm246

ПИТОН

a = [1,2,3,4,5,6,7,8,9,10,11,12]

b = 0

i = 0

while i in range(12):

b = b + int(a[i])

i = i+1

print(b)

poiklm246: const
max = 100;
var
arr: array[1..max] of real;
n: integer;
sum, op: real;
i: integer;

begin
write('Количество элементов: ');
readln(n);

write('Укажите значения: ');
for i := 1 to n do
read(arr[i]);

sum := 0;
for i := 1 to n do
sum := sum + arr[i];

writeln('Сумма элементов: ', sum:10:2);

end.

skrpvch: блин какой ужас

skrpvch: вроде лёгкое упражнение

skrpvch: мне просто очень важно оно

skrpvch: ну завтра буду пробовать

skrpvch: в любом случае, спасибо огромное

poiklm246: тут просто на самом деле, попробуй запустить, а если получится, то лишнее можно выкинуть

poiklm246: Не за что, удачи)

skrpvch: :))

skrpvch: буду теперь знать кто инфу шарит

Предыдущий вопрос

Следующий вопрос

Похожие вопросы