Написать программу в Pascal. Найти сумму 10 нечетных чисел.

Question

Написать программу в Pascal. Найти сумму 10 нечетных чисел.

Answer 1

Program fofgogjoj;
Var a: array [1..100] of integer;   
i, n, s: integer;
Begin 
s:=0;
n:=19; 
for i:=1 to n do   
begin   
a[i]:=i;           
if i mod 2=1 then s:=s+a[i];   
end; 
Writeln ('Сумма 10ти нечетных чисел равна: ',s);
End.

Comments

это с массивом

---

находит сумму первых десяти нечетных чисел

---

Мы массив еще не прошли. А если без него.

---

минуту

---

Program fofgogjoj;
Var
i,s: integer;
Begin
s:=0;
for i:=1 to 19 do
begin
if i mod 2=1 then
s:=s+i;
end;
Writeln ('Сумма 10ти нечетных чисел равна:',s);
End.

---

вот так без массива