1)
var
s : real;
i, n : integer;
begin
s := 0;
read (n);
for i := 1 to n do s := s + 1 / i;
writeln (s);
end.
2)
var
a, i : integer;
begin
a := 1;
for i := 1 to 8 do
begin
a := a * 2;
writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');
end;
end.
3)
var
n, i : integer;
x, s : real;
begin
s := 0;
read (n, x);
for i := 1 to n do
s := s + sin (i * x);
writeln (s);
end.
4)
var
n, a, r, i : integer;
begin
r := 1;
read (a, n);
for i := 1 to n do r := r * a;
writeln (r);
end.
program AndryshaHomenko;
type mas = array of array of integer;
var a: mas;
n, i, j, summa, k: integer;
begin
write('Дан двумерный массив a, размером (n´n)(или квадратная матрица а).');
writeln('Найти среднее арифметическое положительных элементов еѐ побочной диагонали.');
writeln;
writeln('Введите размерность массива: ');
readln(n);
setlength(a, n, n);
summa := 0;
k := 0;
randomize;
for i := 0 to n - 1do
for j := 0 to n - 1 do
begin
a[i, j] := random(201) - 100;
write(a[i, j], '; ');
if (j = n - 1) then writeln;
if ((j = n - i - 1) and (a[i, j] > 0)) then
begin
summa := summa + a[i, j];
k := k + 1;
end;
end;
writeln('Среднее арифметическое положительных элементов побочной диагонали массива равно ', summa / k : 0 : 2);
readln;
end.
78/6= 13
Поэтому проводим прямые, чтобы получалась сумма, равная 13:
12+1=13
11+2=13
10+3=13
9+4=13
8+5=13
7+6=13
Задача решена