#include <iostream>
<span>#include <iomanip>
</span><span>using namespace std;
</span>int main() {
<span> int n;
</span><span> cout<<"n = "; cin>>n;
</span><span> int a[n];
</span><span> cout<<"massiv: ";
</span><span> for (int i=0; i<n; i++) cin>>a[i];
</span><span>// по возрастанию
</span><span> for (int i=0; i<n-1; i++)
</span><span> for (int j=i+1; j<n; j++)
</span><span> if (a[j]<a[i]) swap(a[i],a[j]);
</span><span>// </span><span>вывод на экран
</span><span> for (int i=0; i<n; i++) cout<<a[i]<<" ";
</span><span> cout<<endl;
</span><span>// по убыванию
</span><span> for (int i=0; i<n-1; i++)
</span><span> for (int j=i+1; j<n; j++)
</span><span> if (a[j]>a[i]) swap(a[i],a[j]);
</span><span>// вывод на экран
</span><span> for (int i=0; i<n; i++) cout<<a[i]<<" ";
</span><span> cout<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span>
1)
Ввод чисел в массив:
program vvod_mass;
var
a: array[1..12] of integer;
i: integer;
begin
for i:=1 to 12 do
begin
write('a[', i, ']='); readln(a[i]);
end;
end.
2)
program otric;
var
a: array[1..10] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 10 do if a[i]<0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.
3)
program chetniy;
var
a: array[1..8] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 8 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 8 do if a[i] mod 2 = 0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.
1) <span> Форма цилиндра С открытым верхом</span>
2) Форма прямоугольника
3) Назначение ─ игрушки
4) Материал ─ дерево
Program chislo;
<span>Var x, y, a, b :integer; </span>
<span>begin </span>
<span>for x:=10 to 99 do </span>
<span>begin </span>
<span>a:=x div 10; {1 цифра} </span>
<span>b:=x mod 10; {2 цифра} </span>
<span>y:= a*1000+a*100+b*10+b; {вставили между цифрами это же число} </span>
<span>if (y div x = 99) and (y mod x = 0) then writeln ('Искомое число = ', x) </span>
<span>end; </span>
<span>end.</span>