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

Question

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

chernov5 · Answer

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 не знаю

Популярные вопросы