Const n=10;
<span>var i,j,k,mx,ind: integer;
</span><span> a: array[1..n] of integer;
</span><span>begin
</span><span> writeln('исходный массив:');
</span><span> randomize;
</span><span> mx:=0;
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(2*n)-n;
</span><span> write(a[i],' ');
</span><span> if a[i]>mx then
</span><span> begin
</span><span> mx:=a[i];
</span><span> ind:=i;
</span><span> end;
</span><span> end;
</span><span> writeln;
</span><span> for i:=ind+1 to n-1 do
</span><span> for j:=i+1 to n do
</span><span> if a[i]>a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
</span><span> writeln('новый массив:');
</span><span> for i:=1 to n do write(a[i],' ');
</span><span>end.
</span>исходный массив:
<span>3 7 7 5 5 -2 -8 -9 -8 6
</span><span>новый массив:
</span><span>3 7 -9 -8 -8 -2 5 5 6 7
</span><span>
</span>
Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное
Ответ:
program dvuznach;
var a,b,c,d,f:integer;
begin
writeln('Введите двузначное число');
readln(a);
b:=a div 10;
c:=a mod 10;
d:=b+c;
f:=b*c;
writeln('Сумма=',d);
writeln('Произведение=',f);
end.
Объяснение:
Начальные значения: s=0;n=3;
1 шаг цикла
0*0*0 = 0 (< 123)
s := 1;
n := 5;
2 шаг цикла
1*1*1 = 1 (< 123)
s := 2;
n := 7;
3 шаг цикла
2*2*2 = 8 (< 123)
s := 3;
n := 9;
4 шаг цикла
3*3*3 = 27 (< 123)
s := 4;
n := 11;
5 шаг цикла
4*4*4 = 64 (< 123)
s := 5;
n := 13;
6 шаг цикла
5*5*5 = 125 (< 123)
условие не выполняется, выходим из цикла
будет выведено число 13
На гибких магнитных дисках (дискетах).
Остальные носители, CDRom, USB-Flash, HDD, обычно защищены от такого.