Дан одномерный целочисленный массив, х1, . переписать в новый массив все элементы, запись которых заканчивается 0.

Const n=20; var x,y: array[1..n]of integer; i,j: integer;     begin       for i: =1 to n do            begin               x[i]: =random(100);               write(x[i]: 4);                 if x[i]mod 10=0 then                      begin                         j: =j+1;                         y[j]: =x[i];                     end;           end; writeln; if j< > 0 then     begin         writeln('new: ');             for i: =1 to j do               write(y[i]: 4);       end else         writeln('нет оканчивающихся на 0') end.

1вариант var a,b,c,max,min, sum: real;       {описание переменных, они все действительного типа} begin readln(a,b,c);                       {ввод с клав. чисел a,b,c}             if (3*a)< (a+b) and (3*a)< (7*c) then   {если первое выражение                                                                     меньше второго и третьего, то}           min: =3*a                                             {переменной min присвоить                                                           значение первого выражения}           else if (a+b)< (7*c) then           {иначе, если 2-ое выражение < 3-го,то}                   min: =a+b                   {переменной min присвоить                                                            значение второго выражения}                   else min: =7*c;             {иначе значение третьего выражения}           if a> c then max: =a+b         {если a> c (сравниваем только эти числа,                                                     так как число b входит в оба выражения),                                                       то переменной max присвоить значение                                                       первого выражения}           else max: =b+c;                   {иначе второго}           sum: =min+max;                   {находим сумму min и max}           writeln(sum: 1: 2);                 {выписываем на экране ответ} readln; end. 2 вариант (все тоже самое, просто нахождение минимума и максимума производится в процедуре) процедура описывается всегда до основной программы, в ней используются абстрактные переменные, в данном случае x,y,z,u (локальные переменные), вместо которых при вызове процедуры в основной программе будут даваться конкретные значения введенных ранее переменных. var a,b,c,max, min, sum: real; procedure mn(x,y,z: real; var u: real); begin if (x< y) and (x< z) then           u: =x           else if (y< z) then                   u: =y                   else u: =z; end; procedure mx(x,y: real; var u: real); begin if (x> y) then  u: =x           else u: =y; end; begin readln(a,b,c);           mn(3*a,a+b,7*c,min);           mx(a+b,b+c,max);           sum: =min+max;           writeln(sum: 1: 2); readln; end.

1. var i, k, n: integer;             a: array of integer; begin writeln('введите кол-во элементов массива');           readln(n);           k: =0;           for i: =1 to n do           begin read(a[i]);                     if (a[i] mod 5 =0) and (a[i] mod 3< > 0) then                     inc(k);           end;           writeln('k=',k); readln; end. 1. var i, k, n: integer;               a: array of integer; begin writeln('введите кол-во элементов массива');           readln(n);           k: =0;           for i: =1 to n do           begin read(a[i]);                     if (a[i] mod 2 =0) and (i mod 3=0) then                     inc(k);           end;           writeln('k=',k); readln; end.