3. из элементов массива с сформировать массив а той же размерности по правилу: если элемент четный, то a(i)=c(i)2 , если нечетный, то a(i)=2*c(i)

Const n=5; var c,a: array[1..n] of integer; i: integer; begin   for i: =1 to n do c[i]: =random(100); for i: =1 to n do write(c[i]: 4); writeln; for   i: =1 to n doif (c[i] mod 2)=0 then a[i]: =c[i]   {если элемент четный, то  a(i)=c(i)2 возможно здесь лишняя 2,если нет,тогда допишите сами правильно} else  a[i]: =c[i]*2; for i: =1 to n do write(a[i]: 4); end. 

1)

var    a, b, c, d, f : integer;     s : real; begin

 

    writeln( 'введите стороны треугольника: ' );     write( 'a = ' ); readlln( a );     write( 'b = ' ); readlln( b );     write( 'c = ' ); readlln( c );

    writeln( 'введите стороны прямоугольника: ' );     write( 'd = ' ); readlln( d );     write( 'f = ' ); readlln( f );     s : = (a + b + c) / 2;     s : = sqr( s * (s-a) * (s-b) * (s-c) );     if (d * f) = s then         writeln( 's прямоугольника = s треугольника.' )     else if (d * f) > s then         writeln( 's прямоугольника больше.' )     else         writeln( 's треугольника больше.' );     readln; end.

 

2)

var     m, v, m1, v1 : integer; begin

    writeln( 'введите объем и массу первого тела: ' );     write( 'm = ' ); readlln( m );     write( 'v = ' ); readlln( v );

    writeln( 'введите объем и массу второго тела: ' );     write( 'm = ' ); readlln( m1 );     write( 'v = ' ); readlln( v1 );     if (m / v) = (m1 / v1) then         writeln( 'плотности равны.' )     else if (m / v) > (m / v) then         writeln( 'плотность первого тела больше.' )     else         writeln( 'плотность второго тела больше.' );     readln; end.

 

3)

var    a, b : integer; begin

 

    writeln( 'введите числа: ' );     write( 'a = ' ); readlln( a );     write( 'b = ' ); readlln( b );

    if a mod b = 0 then         write( 'число a является делителем числа b.' );     if b mod a = 0 then         write( 'число b является делителем числа a.' );     readln; end.

ответ:

объяснение:

сейчас александровского реального училища располагается государственный аграрный университет северного зауралья. учебное заведение является региональным центром образовательной деятельности, научного обеспечения и производства наукоемкой продукции в агропромышленном комплексе тюменской области. он участвует в формировании региональной аграрной политики и в выполнении федеральных программ по профилю своей деятельности, которая адаптирована к специфике природных условий и социально- инфраструктуре производительных сил области. в настоящее время в университете обучается более 5000 студентов.