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

от

Вопрос от посетителя

1) Все положительные элементы массива А увеличить на 0.4, нулевые заменить на 0.5, определить сумму отрицательных элементов и произведение положительных элементов.

2)Найти количество пар взаимообратных соседних чисел в линейной таблице Х[1:N].

3)Упорядочите элементы массива А в порядке убывания. 

4)При поступлении в институт абитуриенты набирают определенное количество баллов. Считая фамилии абитуриентов и набранное ими количество баллов исходными данными, составить список будущих студентов, если известно что на выбранный факультет будет зачислено М человек. 

Отвечает Илюха:

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

2 ( спасидо дяде)  

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

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:=a[j]; a[j]:=b end

4  не знаю

Добавить свой ответ