Turbo Pascal
USES CRT;
VAR A:array[1..10] of integer;
B:array[1..5] of integer;
C:array[1..5] of integer;
i,bx,cx:integer;
BEGIN
CLRSCR;
Randomize;
For i:=1 to 10 do
begin
A[i]:=1+random(50);
Write(A[i],' ');
end;
Writeln;
bx:=1; cx:=1;
for i:=1 to 10 do
if (i mod 2 = 0) then
begin
B[bx]:=A[i];
bx:=bx+1;
end
else
begin
C[cx]:=A[i];
cx:=cx+1;
end;
For i:=1 to 5 do
Write(B[i],' ');
Writeln;
For i:=1 to 5 do
Write(C[i],' ');
READLN;
END.<span>
</span>
Программа на скрине! Надеюсь помог!
Ответ: ГБАВ
Где больше &, тем меньше страниц, а где больше | тем больше. А где их одинаково смотри за скобкой
var a:array[1..10] of integer;
i,s,n,k:integer;
Begin
read(n);
for i := 1 to n do begin
read(a[i]);
if a[i]>0 then begin
s:=s+a[i];
k:=k+1;
end;
end;
writeln(s, s/k);
End.