Question

1)Даны 15 чисел. Найти разницу между максимальным и минимальным числом. 2)Найти количество нечетных чисел среди первых 100.

Answer 1

Var a,b,c,d,i,m:integer;
1) begin
read(a);
c:=a;
b:=a;
for i:=2 to 15 do
begin
read(a);
if a>c then c:=a;
if a<b then b:=a;
end;
m:=c-b;
write(m);
end.
2)var c,i:integer;
begin
for i:=1 to 100 do
if i mod 2<>0 then c:=c+1;
write(c);
end.