Возможны опечатки, т.к. плохо знаком с синтаксисом паскаля, но думаю все поймете.
a,i,m(12) as integer
for i=1 to 12 do
readln(m(i));
for i=1 to 6 do begin
a:=m(i);
m(i):=m(13-i);
m(12-i):=a;
end;
for i=1 to 12 do
writeln(m(i));
end.
Если что-то не понятно или выводит ошибку - пишите.
Пусть сначала сядут 1 космонавт и 1 остранафт перевернулся на корабль. 1 остранафт возвращается и отдаёт другомут астронавты и космонавту они перебираЮтся .потом 1 космонайти возвращается за остранафтом и забирает его обратно на корабль Победа !!!
Sub z()
Range(Cells(1, 1), Cells(100, 100)).Clear
n1=5
n2=3
n3=4
k = 1
A = InitMatrix(n1, k, 1)
k = k + n1 + 2
B = InitMatrix(n2, k, 1)
k = k + n2 + 2
C = InitMatrix(n3, k, 1)
End Sub
Function InitMatrix(n, cx, cy)
ReDim A(n, n)
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
A(i, j) = Rnd * 200 - 100
Cells(cx + i, cy + j) = A(i, j)
Next
Next
Cells(cx, cy + n + 1) = "PositiveAverage ="
Cells(cx, cy + n + 2) = PositiveAverage(A)
InitMatrix = A
End Function
Function PositiveAverage(A)
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
If A(i, j) > 0 Then
s = s + A(i, j)
k = k + 1
End If
Next
Next
PositiveAverage = s / k
End Function
Блок-схема - в прилагаемом файле.
Программа:
var n,r,a,b,k,x,y,i:integer;
begin
readln(n,r,a,b);
k:=0;
for i:=1 to n do
begin
readln(x,y);
if sqr(x-a)+sqr(y-b)<r*r then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
3 4 1 1
2 2
-2 -3
0 0
k = 2
1+2+3+4+5 все сложи и получится ответ