На листе электронной таблицы Excel задайте массив чисел и, используя соответствующие функции, вычислите среднее арифметическое отрицательных чисел и среднее арифметическое абсолютных величин положительных чисел в этом массиве.
На листе электронной таблицы Excel задайте произвольный массив чисел. Вычислите сумму положительных чисел и количество отрицательных чисел в этом массиве.
На листе электронной таблицы Excel запишите формулу для вычисления произведения сумм двух одномерных массивов A и B, т. е. где ai и bi соответствующие элементы массивов, а n – их размерность.
*Во всех задания входные данные для элементов массива нужно задать самостоятельно. В каждом массиве должно быть не менее 10 элементов. На проверку нужно прислать файл электронных таблиц.*

файл, правка, вид, вставка, формат, сервис, таблица, окно, справка.

program prim2; uses crt; var i, n, r: integer; a: array[1.. 10000] of integer; begin clrscr; randomize; write ('число элементов '); readln(n); for i: =1 to n do begin {получаем случайные числа и выводим их на экран.} a[i]: =random(45)-22; write(a[i],' '); end; {в полученном массиве меняем соседние элементы.} i: =1; {пока i< =n-1.} while i< =n-1 do begin {меняем значения соседних элементов. } r: =a[i]; a[i]: =a[i+1]; a[i+1]: =r; {увеличиваем индекс на два.} inc(i,2); end; {распечатываем измененный массив.} for i: =1 to n do write(a[i],' '); readkey; end.

1л=1дм^3

8л = 0.008 куб метров

5.68кг=0.00568 тон

плотность

0.00568/0.008=0.71 тон на кубометр

500*0.71 = 355 тон влезет в цистерну

1)

var

x,y,s: real;

begin

readln(x,y);

s: =abs(x*y);

writeln(s: 8: 2);

end.

2)

var

a: integer;

begin

readln(a);

if a mod 2=0 then writeln("четное число")

else  writeln("нечетное число")ж

end.