Question

1) все положительные элементы массива а увеличить на 0.4, нулевые заменить на 0.5, определить сумму отрицательных элементов и произведение положительных элементов. 2)найти количество пар взаимообратных соседних
чисел в линейной таблице х[1: n]. 3)упорядочите элементы массива а в порядке убывания. 4)при поступлении в институт абитуриенты набирают определенное количество . считая фамилии абитуриентов и набранное ими
количество исходными данными, составить список будущих студентов, если известно что на выбранный факультет будет зачислено м человек.

Answer 1

1 задани это снимок дяде)  

Обра́тное число́ (обратное значение, обратная величина) — это число, на которое надо умножить данное число, чтобы получить единицу. Два таких числа называются взаимно обратными. 

VAR
x:array[1..100] of real;
n,i,c:integer;
BEGIN
write('n=');
readln(n);
for i := 1 to n do begin
write('x[', i, ']=');
readln(x[ i ]);
end;
c:=0;
for i := 1 to n-1 do if x[ i ]*x[ i+1 ]=1 then c:=c+1;
writeln('c=',c);
readln;
END.

3  for i:=1 to n-1
for j:= i+1 do
if a<a[j]>; a:=a[j]; a[j]:=b end

4  не знаю