program sgr;
var
n, i, a, min: integer;
begin
read(n);
min := 32767;
for i := 1 to n do
begin
read(a);
if (a > 0) and (a < min) then
min := a;
end;
if a < 32767 then
write(min)
else
write('Нет положительных чисел, меньших 32767');
end.
<u><em>1)Назовите два числа, у которых количество цифр равно количеству букв, составляющих название каждого из этих чисел.</em></u>
<u><em>Ответ: сто-100, миллион 1000000</em></u>
<u><em>2)Когда моему отцу был 31 год, мне было 8 лет, а теперь отец старше меня вдвое</em></u><u><em>.</em></u><span><u><em>Сколько мне лет теперь?</em></u>
</span><span><u><em>Ответ: 23 года. Разность между годами отца и сына равна 23 годам; следовательно, сыну надо иметь 23 года, чтобы отец был вдвое старше его.</em></u>
<u><em>3)</em></u></span><u><em>Лена живет на четвертом этаже, при этом, поднимаясь к себе домой, она проходит по лестнице 60 ступенек. Юля живет в этом же подъезде на втором этаже. Сколько ступенек проходит Юля, поднимаясь к себе домой на второй этаж?</em></u>
<u><em>Ответ:</em></u><span><u><em>Для того, чтобы подняться на 4-й этаж, Лене необходимо пройти три лестничных пролета (60 ступенек). Чтобы подняться на 2-й этаж, Юле необходимо пройти всего лишь один лестничный пролет, то есть 20 ступенек.</em></u></span>
Type
array100 = array[1..100]of integer;
var
x: array100;
i, n, j, t, min, max: integer;
procedure show(x: array100; n: integer);
var i:integer;
begin
writeln();
writeln('Вывод массива[',n,']:');
for i := 1 to n do
write(x[i], ' ');
writeln();
end;
begin
n := 20;
max := -200;
min := 200;
for i := 1 to n do
begin
x[i] := random(2*n) - n;
end;
show(x, n);
for i := 1 to n do
begin
if (x[i] > 0) and (x[i] mod 2 = 1) then begin
if x[i] > max then max := x[i];
if x[i] < min then min := x[i];
end;
end;
writeln('Max = ', max, ' Min = ', min);
i := 1;
while i <= n do
begin
if x[i] = 0 then begin
for j := i + 1 to n do
x[j - 1] := x[j];
n := n - 1;
end
else i := i + 1;
end;
show(x,n);
end.
Var i,x,a,b,c,d,count:integer;
begin
count:=0;
for i:=1000 to 9999 do begin
a:=i div 1000;
b:=(i div 100) mod 10;
c:=(i mod 100) div 10;
d:=i mod 10;
if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then
if (a>b) and (b>c) and (c>d) then begin
count:=count+1;
write(i,' ');
end;
end;
writeln;
writeln('Количество: ',count);
<span>end.</span>
Ето по твоему 1-4 клас ))
