Если я правильно понял задание, то вот:
var y:real; n:integer;
begin
readln(n);
repeat
y:=y+1/n;
n:=n-1;
until n=0;
writeln(y);
end.
Ну наверное на монитор.
Еще можно через принтер.
int a; // Определение переменной a целочисленного типа со значением, зависящим от местонахождения в памяти(мусор)
float b; // Определение переменной b вещественного типа со значением, зависящим от местонахождения в памяти(мусор)
double c = 14.2; // Определение переменной c вещественного типа со значением 14.2(вещественный тип)
char d = 's';// Определение переменной d символьного типа со значением символьного типа
bool k = true; Определение логической переменной k(булева типа/логического типа/etc.) со значением логическим.
Данная информация справедлива для C/C++.
N = 31
c = 1
For b=1 to n
If массив(b) > массив(i) then
If массив(b) > c then
c = a(b)
c2 = a(b-1)
End if
End if
Next
MsgBox c & " " c2
Написано на VBS
<span>import java.util.Arrays<span>;
</span>import java.util.Random<span>;
</span>
public class Task2 {
final static int BOUND = 100<span>;
</span> final static int SIZE = 10<span>;
</span>
public static void main(String[] args) {
int[] a = new int[SIZE]<span>;
</span> Random random = new Random()<span>;
</span> for(int i = 0; i < SIZE; a[i] = random.nextInt(BOUND), i++)<span>;
</span> Arrays.stream(a).forEach(x -> System.out.print(x + " "))<span>;
</span> System.out.println("\n" + Arrays.stream(a)
.filter(x -> x > 30 && x < 70).toArray().length)<span>;
</span> }
}
</span>