Дан целочисленный массив с количеством элементов N, где N–натуральное число, задаваемое пользователем.Выделить динамически объём памяти под элементы массива.Заполнить массив случайным образом числами в диапазоне [-35,-15] и[15, 35],используя указатели. Определить: •сколько процентов от всего количества элементов составляют нечетные элементы;
•отсортировать массив по возрастанию модулей значений.
Вывести на экран исходный массив, вычисляемое значение количества процентов и отсортированный массив.
ЯЗЫК ПРОГРАММИРОВАНИЯ С++
program z;
var a,b,c,d,e,x,g,h:integer;
begin
write('Введите пятизначное число');
read(x);
a:= x mod 10;
b:= x mod 100;
b:= b div 10;
c:= x mod 1000;
c:= c div 100;
d:= x mod 10000;
d:= d div 1000;
e:= x mod 100000;
e:= e div 10000;
if a mod 2=0 then h:=a
else g:=a;
if b mod 2=0 then h:=h+b
else g:=g+b;
if c mod 2=0 then h:=h+c
else g:=g+c;
if d mod 2=0 then h:=h+d
else g:=g+d;
if e mod 2=0 then h:=h+e
else g:=g+e;
writeln(' Сумма нечётных цифр равна ', g);
write(' Сумма чётных цифр равна ', h);
end.
uses Crt;
var a,b,c,x,x1,x2 : real ;
begin
clrscr;
writeln ( 'Введите a : ' );
readln ( a );
writeln ( 'Введите b : ' );
readln ( b );
writeln ( 'Введите c : ');
readln ( c );
if ( sqr ( b ) - 4 * a * c ) < 0
then writeln ( ' Уравнение не имеет решения ' ) else begin
if ( sqr ( b ) - 4 * a * c ) = 0
then begin
x:= - b / ( 2 * a );
writeln( ' x = ', x : 8 : 2 )
end
else
begin
x1:= ( - b + sqrt ( sqr ( b ) - 4 * a * c ) ) / ( 2 * a );
x2:= ( - b - sqrt ( sqr ( b ) - 4 * a * c ) ) / ( 2 * a );
writeln( ' x1 = ', x1 : 8 : 2, ' x2 = ', x2 : 8 : 2 )
end
end.