1. написать программу вывода первых t элементов одномерного массива из 10 элементов, введенных с клавиатуры 2. написать программу формирования значений элементов одномерного массива с использованием генератора случайных чисел в интервале от -10 до 10 (функция random). количество элементов массива 10. вычислить среднее значение неположительных элементов. 3. написать программу формирования значений элементов одномерного массива в произвольном интервале целых чисел (ввод с клавиатуры). количество элементов массива 10. выписать индексы положительных элементов массива, кратных 3. 4. даны два одномерных массива из целых чисел разной размерности. найти целую часть среднего арифметического элементов каждого массива и их сумму. 5. заполните массив из n элементов случайными числами в интервале [1,n] так, чтобы в массив обязательно вошли все числа от 1 до n (постройте случайную перестановку). пример: массив: 3 2 1 4 5

Такое уже было. я на него отвечал, думаю модераторы не против, если свой же ответ здесь предоставлю)   только первых три 1: var p: array[1..10] of integer;     i: integer; count: integer; begin for i: =1 to 10 do read(p[i]); write('сколько цифр массива хотите видеть? -> ');   readln(count); for i: =1 to count do write(p[i]: 3); end. 2: var arr: array[1..10] of integer;     i: integer;       s: integer;       count: integer; beginfor i: =1 to 10 dobeginarr[i]: =random(-10,10); if(arr[i]< 0)  thenbeginwriteln(arr[i]: 4); s: =s+arr[i]; count: =count+1; end; end; writeln('среднее значение = ', s/count); end. 3: var arr: array[1..10] of integer;       i: integer;       crat: integer;       id: integer;           begin    for i: =1 to 10 do    begin    read(arr[i]);     crat: =arr[i] mod 3;     if(crat = 0) then    begin    id: =arr[i];         if(arr[i] = id) then writeln('id = ', i: 2);       end;     end;     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.