Ответы и объяснения

2014-03-16T07:06:39+00:00
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.
находит сумму первых десяти нечетных чисел
Мы массив еще не прошли. А если без него.
минуту
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.
вот так без массива