1.составить программу, которая увеличивает каждый элемент настоящей таблице х [1 .. 10] на 1. 2. составить программу, замены положительных элементов настоящей таблице х [1 .. 10] на 0. 3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат. 4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.

//первая программа

 

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       inc(x[i]);   end;     writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

 

 

 

//вторая программа

 

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       if x[i] > 0 then          x[i] : = 0;   end;   writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

 

 

 

// третья программа

 

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       if x[i] < 0 then          x[i] : = x[i] * x[i];   end;   writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

 

 

 

// четвертая программа

 

var  x: array[1..10] of integer;   i: integer; begin  for i : = 1 to 10 do  begin      write('x[', i, '] = ');       readln(x[i]);       if x[i] > 10 then          x[i] : = x[i] + 2;   end;   writeln;   writeln('result');   for i : = 1 to 10 do      write(x[i], ' ');   readln; end.

C++ #include < iostream> #include < cmath> #include < stdio.h> using namespace std; int main() { int a,b,c,d,r,r2,r3; cin > > a > > b > > c > > d; r=min(a,b); r2=min(r,c); r3=min(r2,d); cout < < r3; return 0; } pascalprogram project1; var a,b,c,d: integer; beginreadln (a,b,c,d); if ((a< =b) and (a< =c) and (a< =d)) then beginwriteln (a); endelse if ((b< =a) and (b< =c) and (b< =d)) then beginwriteln (b); endelse if ((c< =b) and (c< =a) and (c< =d)) then beginwriteln (c); endelse beginwriteln (d); end; end.

1. решите примеры     1.)  2     2.)  3     3.)  1     4.)  0     5.)  0     6.)  3     7.)  1 2.) определите результаты выполнения следующих действий     1.)  {                   a = 1819;                                   b = (div (а,100)) * 10 + 9 = 18 * 10 + 9 = 180 + 9 = 189                   a = mod (10*b - a),100) = mod (189*10-1819,100) = mod (71,100) = 71                                     a = 71 ; b = 189                            };     2.)  {                   а = 7*3 – 4 = 21 - 4 = 17                   а = а*5 = 17*5 = 85                   b = div (a,10) = div (85,10) = 8                   a = mod (a,10) = mod (85,10) = 5                                     a = 5 ; b = 8               };     3.)  {                   a = 5                   b =a+2 = 5+2 = 7                   a = (a+2)*(b-3) = (5+2)*(7-3) = 7*4 = 28                   b = div (a,5) = div (28,5) = 5                   a = mod (a,b) = mod (28,5) = 3                   a = a+1 = 3+1 = 4                   b = mod (a+14,7) = mod (18,7) = 4                   a = 4 ; b = 4               }; 3.) представить следующие числа в нормализованном виде, указать мантиссу и порядок     1.)           нормализованный вид: 3.7412*10^-5           мантисса: 3.7412           порядок: -5     2.)           нормализованный вид: 1.65723*10^7           мантисса: 1.65723           порядок: 7