var i,sum:integer;

begin

sum:=0;

for i:=1 to 100 do

if i mod 2 = 1 then sum:=sum+i;

writelnI(sum);

end.

Ответ:

program gg;

uses crt;

var

  a:array[1..10] of integer;

  sum,i:integer;

begin

clrscr;

 writeln('vvedite 4isla');

 for i:=1 to 10 do

 readln(a[i]);

 for i:=1 to 10 do

 if (a[i]>0) and (a[i] mod 2 <>0) and (a[i]<100)

 then begin

      sum:=sum+a[i];

      end;

 writeln('summa: ',sum);

 readln;

 end.

Объяснение: