Var
i,n:integer;
s:real;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do
s:=s+(1/i);
writeln(s);
<span>end.</span>
begin
var n := ReadInteger;
var a := ArrRandom(n, -10, 10);
a.Println;
var s := a.Where(p -> p.InRange(0, 3)).Sum;
a.Transform(p -> p < 0 ? s : p);
Swap(a[1], a[a.High - 1]);
a.Println
end.
Ответ будет 2,6 если я нигде не ошибся
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#include <iostream>
int main(){
setlocale(0, "rus");
const int m = 3, n = 4;
int i, j, k, max, A[m][n];
for (i = 0; i < m; i++)
for (j = 0; j < n; j++)
std::cin >> A[i][j];
for (i = 0; i < m; i++)
{
max = 0;
for (j = 1; j < n; j++)
if (A[i][j]>A[i][max])
max = j;
for (k = 0; k < m; k++)
{
if (A[k][max]>=A[i][max])
break;
std::cout << i+1 << ";" << max+1 << "\n";
return 0;
}
}
std::cout << "0\n";
return 0;
}
Ну на хз правильно или нет так как из 8 класса,но все равно