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

2) Найти количество нечетных чисел среди первых 100.

Question

Информатика

Авдокея

16 августа, 17:25

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

2) Найти количество нечетных чисел среди первых 100.

+1

Ответы (1)

Знаете ответ на вопрос?

Улита · 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
end;

m:=c-b;

write (m) ;

end.

2) var c, i:integer;

begin

for i:=1 to 100 do

if i mod 20 then c:=c+1;

write (c) ;

end.

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

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

2) Найти количество нечетных чисел среди первых 100.